SEPARAR STRING

USUARIO.EXCLUIDOS 24/03/2005 14:37:15
#74700
Como faço para separa uma string e guardar cada parte em uma variavel ou array.
Ex:

Tenho em banco de dados alguns numeros telefonicos. Coloco um destes numeros em uma textbox, depois faço a contagem de caracteres com o 
 Len  [Len/c] . Uso a função Mid$ para separar os numeros de um em um pois preciso enviar pela serial para um dispositivo de baixa velocidade. Consigo fazer aparecer em um MSGBOX, mas não sei como guardar estes fragmentos.

Segue o código:

[c]
    Dim sLeTextBox As String
    Dim sEnviaNum As String
    Dim sGuardaNum As String
    Dim i As Integer
    Dim x As Integer
    
    sLeTextBox = Len(txtEnviar.Text)
        
    x = 1
                
    For i = 1 To sLeTextBox
        sGuardaNum = Mid$(txtEnviar.Text, x, 1) 
        x = x + 1
        MsgBox sGuardaNum
                
    Next


Grato
USUARIO.EXCLUIDOS 24/03/2005 14:43:32
#74703
Faça assim o

Dim vnumeros as integer
Dim snumeros as variant
vnumeros " 3215105 3215032 3334165 6665544 8884466 "
snumeros = split(vnumeros)
For i = Lbound(snumeros) to Ubound(snumeros)
Msgbox snumeros(i)
Next


Vai separar os números e colocar na variável snumeros....
e para retornar determinado item..
é
snumeros(i)
onde I representa os itens SPLITEADOS...
DANIELCPAETE 24/03/2005 14:43:32
#74704
tente isso

Private Sub Command1_Click()
    Dim sLeTextBox As String
    Dim sEnviaNum As String
    Dim sGuardaNum() As String
    Dim i As Integer
    Dim x As Integer
     
    sLeTextBox = Len(txtEnviar.Text)
              
    ReDim sGuardaNum(sLeTextBox)
              
    x = 1
                 
                 
                 
    For i = 1 To sLeTextBox
        sGuardaNum(i - 1) = Mid$(txtEnviar.Text, x, 1)
        x = x + 1
        
                 
    Next
    
    For i = 0 To UBound(sGuardaNum) - 1
        MsgBox sGuardaNum(i)
    Next
    
End Sub
USUARIO.EXCLUIDOS 24/03/2005 14:55:58
#74709
Pessoal valeu mesmo, mas preciso mandar o resultado pela serial tipo assim:

O tel é 5524123

Preciso enviar assim

5 - 5 - 2 - 4 - 1 - 2 - 3

um de cada vez ao periferico.

Será que preciso guardar o resultado em algumas variaveis? pois o buffer do periferico não suporta a cadeia toda de uma só vez.

Grato

USUARIO.EXCLUIDOS 24/03/2005 15:19:26
#74725
Obrigado Pessoal, Consegui assim:

  
Private Sub cmdEnviar_Click()
    'Desabilita botoes
    txtEnviar.Enabled = False
    cmdEnviar.Enabled = False
    
    'Função valida e envia o numero tel.
    Dim sLeTextBox As String
    Dim sEnviaNum As String
    Dim sGuardaNum As String
    Dim i As Integer
    Dim x As Integer
    
    sLeTextBox = Len(txtEnviar.Text)
    MsgBox sLeTextBox
    
    x = 1
                
    For i = 1 To sLeTextBox
        sGuardaNum = Mid$(txtEnviar.Text, x, 1) 'texto,inicio,tamanho
        x = x + 1
        MsgBox sGuardaNum
        
        If IsNumeric(sGuardaNum) Then
            MSComm.Output = Chr(sGuardaNum)
        Else
            MsgBox "Não é numero"
        End If
                        
    Next

    
End Sub


Valeu [S46]
USUARIO.EXCLUIDOS 24/03/2005 15:24:22
#74728
Encerre o TÓ“PICO...
Até mais!
Tópico encerrado , respostas não são mais permitidas
Voltar