| || |
My final code..... Removing NBSP from string
User sei roy (seiroy@IAAI.com.nospam) posted:
Function RemoveNBSP(sTemp as string) as String
Dim sTempNew as string
Dim strCh as string*1
Dim i as integer
sTempNew = ""
for i=1 to Len(sTemp)
strCh = ""
on error resume next 'if strCh>132 then an error "Mismatched
string" is posted, so ignore it!
strCh = mid$(sTemp,i,1)
if (asc(strCh) > 32) and (asc(strCh) < 132) then sTempNew =
sTempNew & strCh
RemoveNBSP = sTempNew