Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 07/12/2005 10:53 hs
 Desculpe. Acho que não compreendi o que você quer, mas teste isto. Private Sub Command1_Click()
Dim sArray() As String
Dim sLinha As String
Dim i As Integer
Dim iQualLinha As Integer 'Informe a linha a ser lida
Dim k As Integer 'Contador
iQualLinha = 3 'Para buscar de um text ( iQualLinha = cint(txtQualLinha.text)
k = 0
i = 0
Open "C:Test.txt" For Input As #1
Do While Not EOF(1)
Input #1, sLinha
k = k + 1
If k = iQualLinha Then 'Verifico a quantidade de linhas lidas com a linha escolhida
sLinha = Replace(sLinha, ")", "")
sLinha = Replace(sLinha, "{", "")
sLinha = Replace(sLinha, "}", "")
sLinha = Replace(sLinha, ",", " ")
sLinha = Replace(sLinha, Chr(34), "")
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
End If
Loop
Close #1 End Sub
Usei um txt contendo test = on test = off info = {"1", "2", "3", "4", "5"}
info2 = {"6", "7", "8", "9", "10"} Independente do que exista no txt o que você quer são só os valores numéricos? Se for isto vou reescrever o código. |
|
|
|
|
|
Myth
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 07/12/2005 11:41 hs
Editado: bem aki esta o programa de test, so q nao esta funcionando, precisaria muito de um fix. Thx.. Não, depedendo da situacao posso usar letras,numeros, simbolos, etc... e tb queria usar nesse modo invez do modulo de ini, pq assim eu posso defini os valores para cada textbox e tb invez de usar = eu posso usar outro paramento como :, etc. ex: test: on test: off info: {"1", "2", "3", "4", "5"}
info2: {"6", "7", "8", "9", "10"} se eu tiver ainda com duvidas eu post denovo. Muito Obrigado mesmo: Tekki Editado fui testa e deu isto: Run-timer error 9 subscript out of range Debug: Text4.Text = sArray(3) OBS: nao use akeles codigos q dei como exemplo q funciono pq eu esqueci de atualiza eles :S estao bugados sry.. Consegui Fixa o bug. fiz isto so que ele so esta contrando o valor 1 e nao o resto como 2 3 4 5 e colocando no textbox ele nao coloco, como nao se existisse Code: Dim sArray() As String
Dim sLinha As String
Dim i As Integer
Dim iQualLinha As Integer 'Informe a linha a ser lida
Dim k As Integer 'Contador
iQualLinha = 3 'Para buscar de um text ( iQualLinha = cint(txtQualLinha.text)
k = 0
i = 0
Open "test.txt" For Input As #1
Do While Not EOF(1)
Input #1, sLinha
k = k + 1
If k = iQualLinha Then 'Verifico a quantidade de linhas lidas com a linha escolhida
sLinha = Replace(sLinha, "info", "")
sLinha = Replace(sLinha, " ", "")
sLinha = Replace(sLinha, "=", "")
sLinha = Replace(sLinha, ")", "")
sLinha = Replace(sLinha, "{", "")
sLinha = Replace(sLinha, "}", "")
sLinha = Replace(sLinha, ",", " ")
sLinha = Replace(sLinha, Chr(34), "")
If Len(sLinha) > 5 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
End If
Loop
Close #1 |
|
TÓPICO EDITADO
|
|
|
|
|
