VFP 愛用者社區

[dunson]

Function ConvertFromBin
para Strng
dimension Symbols[31]
Symbols[1] = 0 && 'NULL' asscii code 十進制
Symbols[2] = 1 && 'SOH' asscii code 十進制
.
.
Symbols[31] = 30
* 等於值需查 ascii code 表對應十進制
local ln_value, lc_Bumber, NewStr
NewStr = ''
For n = 1 To Len(Strng)
If strsub(Strng, n, 1) < " "
lc_Number = strsub(Strng, n, 1)
ln_Value = asc(lc_Number)
If CheckSym = 1
If Symbols[ln_Value] = ">"
NewStr = NewStr + "<" + chr(Symbols[ln_Value])
Else
NewStr = NewStr + "<" + chr(Symbols[ln_Value]) + ">"
EndIf
Else
NewStr = NewStr + "<" + lc_Number + ">"
EndIf
Else
NewStr = NewStr + substr(Strng, n, 1)
EndIf
endfor
ConvertFromBin = NewStr
EndFunction
其中CheckSym, ConvertFromBin兩變數其他應用程式有宣告
我試轉換成VFP程式可能有誤你試看看