[Resolvido] TextStream - Quantidades de linhas suportadas.

[Danleonhart]

Pessoal...

Tenho um script que funciona perfeitamente para carregar um arquivo ".txt" em uma TextBox...

ele lê linha a linha do arquivo, coloquei desta forma pois as vezes preciso configurá-lo devido a algumas quebras de texto...mas isso não é problema.

O problema é a quantidade de linhas suportada pelo Stream...quando chega em 12.588 ele finaliza o carregamento... e tem arquivos ".txt" com mais de 20.000 linhas...

Tem alguma maneira de aumentar esse limite ??? :mellow:

Meu script:

Private Sub OpenTexto(ByVal fileCam As String, ByRef oBtxtBox As TextBox)
Dim Texto As String
Dim cont As Long, l As Long
oBtxtBox.Text = Empty


Set FSO = New Scripting.FileSystemObject
 Set sTex = FSO.OpenTextFile(fileCam, ForReading, True)

  Do Until sTex.AtEndOfStream
   DoEvents
    l = l + 1
      If cont = 4 Then
        DoEvents
         oBtxtBox.Text = oBtxtBox.Text & sTex.ReadLine & vbNewLine
         cont = 0
      Else
        DoEvents
         oBtxtBox.Text = oBtxtBox.Text & sTex.ReadLine & ","
         cont = cont + 1
      End If
   LbNum.Caption = IIf(Format(l, "###,##0") <= 1, l & " Linha.", Format(l, "###,##0") & " Linhas.")
  Loop
  
sTex.Close

End Sub

Edited February 4, 2012 by Danleonhart

[MRMB]

Danleonhart,

Utilizando o seu código sem nenhuma alteração li um arquivo de mais de 44 mil registros.

Penso que talvez o problema não venha a ser a quantidade de linhas suportadas.

[Danleonhart]

Bem, continuo sem carregar todas as linhas arquivo de texto... :mellow:

[kuroi]

O problema não é o TextStream e nem o número de linhas, o problema na verdade é que o limite de caractetes do TextBox, deve ser de 65.536.

Se for pra passar disso, use a RichTextBox, que deve aceitar até 4.294.967.296 de caracteres, caso tenha memória RAM suficiente para isso.

[Danleonhart]

Poxa cara... o TextBox é tão resumido assim...

não sabia...

substitui pelo RichTextBox e foi carregado todas as 27.592 linhas que estavam em um ".txt"...

Valeu mais uma vez Kuroi !

Agora ADM. hein ! mereces .