One thing that has always bothered me is piping out plain text files from KiXtart. I am working on this encoding routine to encode the output to file. The problem I am having is that this is only reading the first line of the test file that I am trying to encode. I am going to work on areader after I get this completed. I only have this setup for Alpha Numeric at this time specialty characters are not available yet.
Code:
Break on
Dim $a,$b,$c,$sTestInfo,$sInfo,$sEncode,$sScanInfo
$a=1
Open (1,"c:\temp\test.txt",5)
Open (2,"c:\temp\testinfo.txt",2)
$aLCase='a','b','c','d','e','f','g','h','i','j','k','l',
'm','n','o','p','q','r','s','t','u','v','w','x','y','z',' ',
'1','2','3','4','5','6','7','8','9','0',
'~','!','@','#','$','%','^','&','*','(',')','_',
'+','?','>','<',':','"','}','{','|','\',']','[','=','-',',','.','/'
$aEncode='57e4','3216','96DD','774F','G44s','nX19','56x4','Y13n','k4T0','o319','J439','7KYL','x324',
'39e6','G491','2c3B','9ZiN','4qT7','E976','0Ob4','3nX4','1m43','D9I1','07QZ','07Qz','fx3J','X1x5','x4X9',
'Gg76','954N','TX1A','GWAH','4q33','xtZ0','K1n3','j517','ZN3x'
$sTestinfo=ReadLine (2)
While $Stestinfo <>""
Do
$sScaninfo=SubStr ($sTestinfo,$a,1)
For Each $sInfo in $aLCase
$b=$b+1
If $sInfo=$sScaninfo AND $bSkip=0
For Each $sEncode in $aEncode
$c=$c+1
If $c=$b
WriteLine (1,$sEncode)
$sEncode=""
$bSkip=1
EndIf
Next
EndIf
Next
$bSkip=0
$b=0
$c=0
?$sScaninfo
$a=$a+1
Until $sScanInfo=""
$sTestInfo= ReadLine (2)
WriteLine (1,@CRLF)
Loop
Close (1)
Close (2)
Exit 0
With this code KiXtart KiXass translates to:
J439k4T007QZ0Ob457e44qT70Ob4X1x5J439k4T007QZ57e4E976E976
