|
|
Postada em 16/07/2004 09:34 hs
Bom dia pessoal ! Gostaria de saber , como faço para recuperar uma linha de um arquivo texto, mas sem usar o input line. É possóvel eu definir quantos bytes eu quero recuperar, por exemplo da posição 1 até a 12 , da 13 até a 20 e assim até o final do arquivo ? Obrigado pela ajuda ! |
|
|
|
|
|
|
|
Postada em 16/07/2004 09:59 hs
sem o line input eu nao sei como vc vai fazer isso, porque vc nao pode usar o line input? |
|
|
|
|
|
Postada em 16/07/2004 10:12 hs
Pq as linhas que eu recupero são criptografadas e contém alguns caracteres que pro vb significam quebra de linha ou qq coisa que prejudique esta linha na hora de decriptografá-la. O "Line", decifra alguns caracteres e isso prejudica minha decriptografia ! |
|
|
|
|
|
Postada em 16/07/2004 13:42 hs
Dim Chunk%, F1%
Const BUFSIZE = 1024 Open Src For Binary As F1 FSize = LOF(F1) BTest = FSize Do
If BTest < BUFSIZE Then
Chunk = BTest
Else
Chunk = BUFSIZE
End If
Buf = String(Chunk, " ")
Get F1, , Buf
BTest = FSize - LOF(F1)
Loop Until BTest = 0 Close F1 sem ser o line input só o GET para pegar informações do arquivo... t+ Renato |
|
|
|
|
|
Postada em 16/07/2004 14:14 hs
2 erros ocorreram : 1º não consigo atribuir o nome do arquivo a variavel Src 2º -- > Get lArq, , Buf na linha acima o vb dá o seguinte erro : "variable uses an automation type not suported in Visual Basic" Valew a ajuda ..... |
|
|
|
