Break On
Call '%KIXLIBPATH%\FileIO.kxf'
Call '%KIXLIBPATH%\TimeDiff.kxf'
$S = @DATE + ' ' + @Time + '.' + Right('000' + @MSECS, 3)
$D = FileIO('C:\Temp\Test.txt', 'R')
$E = @DATE + ' ' + @Time + '.' + Right('000' + @MSECS, 3)
'Data Load -' ?
' Size: ' Len(Join($D, @CRLF)) ?
'Start: ' $S ?
' End: ' $E ?
'Total: ' TimeDiff($S, $E, ,1) ? ?
$S = @DATE + ' ' + @Time + '.' + Right('000' + @MSECS, 3)
$A = TxtToAry(Join($D, @CRLF))
$E = @DATE + ' ' + @Time + '.' + Right('000' + @MSECS, 3)
'Conversion by Single Text Block-' ?
'Start: ' $S ?
' End: ' $E ?
'Total: ' TimeDiff($S, $E, ,1) ?
'Array: ' 1 + Ubound($A) ? ?
$ = FileIO('C:\Temp\test1.txt', 'W', $A)
Dim $aF
$S = @DATE + ' ' + @Time + '.' + Right('000' + @MSECS, 3)
$C = -1
For Each $Line in $D
$A = TxtToAry($Line + @CRLF)
$T = UBound($A)
$F = UBound($aF)
ReDim Preserve $aF[1 + $F + $T]
For $I = 0 to $T
$C = $C + 1
$aF[$C] = $A[$I]
Next
Next
$E = @DATE + ' ' + @Time + '.' + Right('000' + @MSECS, 3)
'Conversion by Line -' ?
'Lines: ' 1 + UBound($D) ?
'Start: ' $S ?
' End: ' $E ?
'Total: ' TimeDiff($S, $E, ,1) ?
'Array: ' 1 + Ubound($aF) ? ?
$ = FileIO('C:\Temp\test2.txt', 'W', $aF)
; Convert a text string to an array of characters
; Glenn Barnas
Function TxtToAry($_S)
Dim $_P, $_C
$_C = -1
For $_P = 1 to Len($_S)
$_C = $_C + 1
If $_C >= UBound($TxtToAry)
ReDim Preserve $TxtToAry[100 + $_C]
EndIf
$TxtToAry[$_P - 1] = SubStr($_S, $_P, 1)
Next
ReDim Preserve $TxtToAry[$_C]
Exit 0
EndFunction