Code: Select all
Procedure.s ipf_Escape(String$) ;Add \ before (, ) And \.
Protected Char.c,Result$
Result$=""
For i=1 To Len(String$)
Char=Asc(Mid(String$,i,1))
Select Char
Case 8 ; BS
Result$+"\b"
Case 9 ; TAB
Result$+"\t"
Case 10 ; LF
Result$+"\n"
Case 12 ; FF
Result$+"\f"
Case 13 ; CR
Result$+"\r"
Case '\'
Result$+"\\"
Case '('
Result$+"\("
Case ')'
Result$+"\)"
Case 128 To 511
;Debug Str(i)+":"+StrU(Char,#PB_Word)
Result$+"\"+ipf_Dec2Oct(Char)
Default
Result$+Chr(Char)
EndSelect
Next
ProcedureReturn Result$
EndProcedure
Code: Select all
Case $05F4:found=34 ; HEBREW PUNCTUATION GERSHAYIM
Case $05F3:found=39 ; HEBREW PUNCTUATION GERESH
Case $05BE:found=45 ; HEBREW PUNCTUATION MAQAF
Case $05C3:found=58 ; HEBREW PUNCTUATION SOF PASUQ
Case $05E9:found=35 ; HEBREW LETTER SHIN
Case $05E2:found=40 ; HEBREW LETTER AYIN
Case $05D0:found=41 ; HEBREW LETTER ALEF
Case $05D8:found=43 ; HEBREW LETTER TET
Case $05D1:found=66 ; HEBREW LETTER BET
Case $05E6:found=67 ; HEBREW LETTER TSADI
Case $05D3:found=68 ; HEBREW LETTER DALET
Case $05D2:found=71 ; HEBREW LETTER GIMEL
Case $05D4:found=72 ; HEBREW LETTER HE
Case $05DB:found=75 ; HEBREW LETTER KAF
Case $05DC:found=76 ; HEBREW LETTER LAMED
Case $05DE:found=77 ; HEBREW LETTER MEM
Case $05E0:found=78 ; HEBREW LETTER NUN
Case $05E4:found=80 ; HEBREW LETTER PE
Case $05E7:found=81 ; HEBREW LETTER QOF
Case $05E8:found=82 ; HEBREW LETTER RESH
Case $05E1:found=83 ; HEBREW LETTER SAMEKH
Case $05EA:found=84 ; HEBREW LETTER TAV
Case $05D5:found=87 ; HEBREW LETTER VAV
Case $05D7:found=88 ; HEBREW LETTER HET
Case $05D9:found=89 ; HEBREW LETTER YOD
Case $05D6:found=90 ; HEBREW LETTER ZAYIN
Case $05E5:found=99 ; HEBREW LETTER FINAL TSADI
Case $05DA:found=107 ; HEBREW LETTER FINAL KAF
Case $05DD:found=109 ; HEBREW LETTER FINAL MEM
Case $05DF:found=110 ; HEBREW LETTER FINAL NUN
Case $05E3:found=112 ; HEBREW LETTER FINAL PE
Case $05B7:found=65 ; HEBREW POINT PATAH
Case $05B7:found=69 ; HEBREW POINT SEGOL
Case $05B8:found=70 ; HEBREW POINT QAMATS
Case $05B4:found=73 ; HEBREW POINT HIRIQ
Case $05B9:found=79 ; HEBREW POINT HOLAM
Case $05BB:found=85 ; HEBREW POINT QUBUTS
Case $05B2:found=97 ; HEBREW POINT HATAF PATAH
Case $05B1:found=101 ; HEBREW POINT HATAF SEGOL
Case $05B3:found=102 ; HEBREW POINT HATAF QAMATS
Case $05B0:found=176 ; HEBREW POINT SHEVA
Case $05B5:found=181 ; HEBREW POINT TSERE
Case $05C1:found=186 ; HEBREW POINT SHIN DOT