4 replies to this topic

[Humberto - S.O.S.]

Estou com o seguinte problema.
Tenho uma variavel que carrega um texto, só que eu gostaria de um comando que seria colocado em outra variavel que captura somente a linha que eu desejo.

Um exemplo eu tenho a variavel TEXTO com as linhas abaixo:

1 - codigo
2 - codigoo
3 - codigooo
4 - codigoooo
5 - codigooooo
6 - codigoooooo
7 - codigooooooo
8 - codigoooooooo
9 - codigooooooooo

gostaria de um comando que captura-se somente a linha 4, ou seja, no display mostraria "codigoooo".
Vale lembrar que o texto muda de acordo com o acesso.


obrigado desde ja

[replay]

não daria pra vc coloca em um array?

[Sollos]

Crie as variaveis FSO e carregue o arquivo de texto.

Depois crie um estrutura de repetição que, incremente uma variável iniciando em 1(Número de linhas) e verifica se o obj está no fim da leitura (obj.atEndOfStream), efetue as repetições em virtude do obj.SkipLine
Algo desse tipo:
linhas = 1
numeroLinha = X ' Linha que deseja copiar

While(Not(obj.AtEndOfStream))
if(linhas = numeroLinha) then
minhaVariavel = obj.readLine
end if
SkipLine
Wend

Isso deve funcionar, fiz de cabeça, qualquer coisa posta aí.

[]'s

[sk15]

Bem vc disse que vc carrega um texto dentro de uma variavel ... de que forma ele ta pulando a linha?
Com qual dessas constantes ...

vbCr = Chr(13) = \r
vbCrLf = Chr(13) & Chr(10) = \r\n
vbNewLine = Chr(13) & Chr(10) or Chr(10) = \r\n

Pois dependendo com um "Split" poderá resolver....

<%
Texto = "1 - codigo" & vbNewLine &_
"2 - codigoo" & vbNewLine &_
"3 - codigooo" & vbNewLine &_
"4 - codigoooo" & vbNewLine &_
"5 - codigooooo" & vbNewLine &_
"6 - codigoooooo" & vbNewLine &_
"7 - codigooooooo" & vbNewLine &_
"8 - codigoooooooo" & vbNewLine &_
"9 - codigooooooooo"

Divide = Split(Texto, vbNewLine)
Responde.Write "Linha 4:" & Divide(3)
%>

Tipo isso, mas lembre-se o "Split" sempre começa no zero ou toda linha que vc quiser pegar deve dinimuir um número ...

[Humberto - S.O.S.]

CASO SOLUCIONADO!

Agradeço a todos que me ajudaram, que Deus abençoe em dobro a vida de vocês.

Observando que solucionei o problema utilizando algumas observações que o sk15 nos passou, mas de qualquer forma muito obrigado.


Paz do Senhor

Edição feita por: Humberto - S.O.S., 17/04/2007, 17:28.