ontem rolou uma pergunta de como separar o nome do sobrenome, montei um
script em vb, s� tem q adaptar pra vb script (nao muda quase nada, so nome
de campos, e uma coisinha no for/next, ou passar pra asp, que � quase a
mesma coisa.
Dim palavra()
ReDim palavra(10)
Dim texto
For i = 1 To Len(Text1.Text)
letraAtual = Mid(Text1.Text, i, 1)
If Mid(Text1.Text, i, 1) = " " Then
qtd = qtd + 1
ReDim Preserve palavra(qtd)
texto = ""
Else
texto = texto & Mid(Text1.Text, i, 1)
palavra(qtd) = texto
End If
Next i
For i = 0 To qtd
Debug.Print i & " " & palavra(i)
Next i
Sidney AD.
[EMAIL PROTECTED]
_________________________________________________________
Oi! Voc� quer um iG-mail gratuito?
Ent�o clique aqui: http://registro.ig.com.br/
http://www.asp10.net
==========================================
Solu��es simples para problemas complexos
==========================================
|
|
|
||
| p�gina do grupo | diret�rio de grupos | diret�rio de pessoas | cancelar assinatura |
