cadenas

M
26 de Marzo del 2005
Dim posicion As String

Private Sub Form_Load()
Show
posicion = InputBox("DIGITE LA POSICION DEL BARCO", posicion, Default, 7000, 6000)
End
End Sub

la pregunta es ¿como hago hago para recorer unopor uno los caracteres de la cadena?
de antemano gracias

alphasoft
26 de Marzo del 2005
O.K.

Dim sTmp as string
Dim Posicion as string

Private Sub Form_Load()
Show
posicion = InputBox("DIGITE LA POSICION DEL BARCO", posicion, Default, 7000, 6000)

For i = 1 to Len(Posicion)
sTmp = Mid(Posicion,i,1)

aqui tu codigo...
sTmp contiene el caracter actual...

next i

End
End Sub