On Mar 27, 2006, at 2:00 , Charles Yeomans wrote:
Here is some REALbasic code that does this, and it's probably
reasonably quick.
Function RemoveDoubleByte(inString as String) as String
#pragma disableBackgroundTasks
dim characters() as String = Split(inString, "")
For i as Integer = 0 to UBound(characters)
If Asc(characters(i)) > 127 then
characters(i) = "?"
End if
Next
Return Join(characters, "") //you might want to change the
encoding to ASCII here
End Function
At <http://www.declaresub.com/Code/index.html> there is a button
that will allow you to pay me via Paypal.
Charles Yeomans
Hi,
When I say it is fast, then it is...
I should test it on my PET 8032...
I should check if this just works for the idea, then I should written
an small example...
This problem, have been on this list a lot of times, but now it looks
that is fixed.
Regards.
Sven E
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
