separar dados

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: separar dados

andre

DIVINÓPOLIS
MG - BRASIL

ENUNCIADA !

Postada em 09/06/2006 20:08 hs

tenho uma caixa de texto com varios numeros separados por ponto vírgula " ; ":

1; 2; 3; 4; 5;

preciso separar estes por açao de um botao....alguem tem alguma sugetao?

Carlos
não registrado

ENUNCIADA !

Postada em 09/06/2006 23:17 hs

Dim i As Integer
For i = 1 To Len(Text1.Text) Do
  If i = 1 Then
    MsgBox Mid(Text1.Text, i, 1) 'exibe menssagem com o número
  Else
    If Mid(Text1.Text, i, 1) = ";" Then
      i = i + 2
      MsgBox Mid(Text1.Text, i, 1) 'exibe menssagem com o número
    End If
  End If
Next i

Página(s): 1/1


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site