estou precisando fazer esta funcao no meu programa.

 

bem, vai existe 3 textbox entao fikaria assim.

 

1 |   |

2 |   |

3 |   |

 

bem, eu quero q ele leia num arquivo txt assim deste jeito

 

x y z

 

o valor de x ele por no textbox 1 valor de y no textbox 2 e valor de z no textbox 3

 

entao quando alguem apartece carrega por exemplo ele ia ler o arquivo test.txt

e ia verificar os 3 valores q estao na mesma linha, mas vai por kada valor separadamente em cada textbox.

 

Exemplo 2: como devera ficar

 

no arquivo test.txt

esta assim.

343 131 991

 

entao no textbox fikaria assim.

1 |343|

2 |131|

2 |991|

 

OBS: pode ser texto, numero, simbolo, etc... so desejo q fassa essa verificação.

 

OBS2: tb pode esta entre virgulas, parentese, chaves, etc...

ex1: 343,131,991

ex2: (343,131,991)

ex3: (343 131 991)

ex4: {343 131 991}

etc...

 

Muito Obrigado.

Este exemplo é só para te dar uma idéia.

 

 

    Dim sArray() As String
    Dim sLinha As String
    Dim i As Integer
    i = 0
   
    Open "C:Test.txt" For Input As #1
        Do While Not EOF(1)
            Input #1, sLinha
            sLinha = Replace(sLinha, "(", "")
            sLinha = Replace(sLinha, ")", "")
            sLinha = Replace(sLinha, "{", "")
            sLinha = Replace(sLinha, "}", "")
            sLinha = Replace(sLinha, ",", " ")
           
            If Len(sLinha) > 3 Then
                sArray() = Split(sLinha, " ")
           
                Text1.Text = sArray(0)
                Text2.Text = sArray(1)
                Text3.Text = sArray(2)
            Else
                Select Case i
                    Case 0
                        Text1.Text = sLinha
                    Case 1
                        Text2.Text = sLinha
                    Case 2
                        Text3.Text = sLinha
                        i = -1
                End Select
                i = i + 1
            End If
        Loop
    Close #1

 

 

A função Split não esta presente nas versões anteriores a VB6

Muito obrigado consegui.

 

mas quero fazer assim, mas nao estou conseguindo.

 

info = {"1", "2", "3"}

 

por os valores q estao dentro do parentese

 

nos textbox

 

obrigado...

Bem, eu consegui fazer oq eu queria usei isto.

    Dim sArray() As String
    Dim sLinha As String
    Dim i As Integer
    i = 0
   
 Open "C:Test.txt" For Input As #1
        Do While Not EOF(1)
            Input #1, sLinha
            sLinha = Replace(sLinha, ")", "")
            sLinha = Replace(sLinha, "{", "")
            sLinha = Replace(sLinha, "}", "")
            sLinha = Replace(sLinha, ",", " ")
            sLinha = Replace(sLinha, """", "")
           
            If Len(sLinha) > 1 Then
                sArray() = Split(sLinha, " ")
           
                Text1.Text = sArray(0)
                Text2.Text = sArray(1)
                Text3.Text = sArray(2)
                Text4.Text = sArray(3)
                Text5.Text = sArray(4)
 
            Else
                Select Case i
                    Case 0
                        Text1.Text = sLinha
                    Case 1
                        Text2.Text = sLinha
                    Case 2
                        Text3.Text = sLinha
                    Case 3
                        Text4.Text = sLinha
                    Case 4
                        Text5.Text = sLinha
                       
                End Select
                i = i + 1
            End If
        Loop
    Close #1

 

ai ele axo os valores:

info = {"1", "2", "3", "4", "5"}

 

mas como eu fasso para ele verificar ou falar de baixo tipo vai esta assim

 

info = {"1", "2", "3", "4", "5"}
info2 = {"6", "7", "8", "9", "10"}

queria saber como fasso pra definir a linha, da onde que ira ser pesquisado os valores.

 

ex2: pode esta assim por exemplo

test = on

test = off

info = {"1", "2", "3", "4", "5"}
info2 = {"6", "7", "8", "9", "10"}

 

eu teria q definir a linha mas como eu vou poder fazer isto?

 

Obrigado...

 

(desculpe pelo double post)

 ok

OK? :S

 

axo q vc nao leu tudo eu preciso saber disso :S