nekane
10 de Mayo del 2005

hola necesito urgente traducir esta parte de un codigo en visual basic a crystal,lo he intentado pero no me hace lo que deberia hacer:

For i% = 1 To Len(chaine$)
Select Case Asc(Mid$(chaine$, i%, 1))
Case 32 To 126
Case Else
i% = 0
Exit For
End Select
Next


si lo sabeis mandarmelo,gracias!