Carlos
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2011 07:26 hs
Alguém saberia me dizer onde que estou errando na parte desta função.
Eu quero pegar um arquivo de texto, ler o seu conteúdo e colocar no array, sendo que vai dividindo o texto.
Acontece que está cortando o texto e também o Array não grava fora da sub.
Tentei add em uma listbox que tbm corta o conteúdo.
O array esta definido nas declarações assim:
Dim typTEXTO() As String
Resumindo:
Eu preciso que a cada 5 paragrafos ele grava no array o conteúdo.
ele está gravando na listbox, porém cortando o texto e no array eu não consigo chamar fora da sub.
Open strTXT For Input As #1 'Abre o arquivo para leitura
Do While Not EOF(1)
Line Input #1, s_Linha
sTexto = paragStr + s_Linha
paragStr = paragStr + s_Linha + vbCrLf
' MsgBox s_Linha, vbInformation, contador
contador = contador + 1
If contador = 5 Then
ReDim typTEXTO(intPG)
typTEXTO(intPG) = paragStr
intPG = intPG + 1
List1.AddItem intPG & vbTab & paragStr
paragStr = ""
contador = 0
End If
Loop
Close #1
|
|
|
|
|
|
|
|
Postada em 31/08/2011 07:34 hs
Para concatenar deves usar o &
sTexto = paragStr & s_Linha
paragStr = paragStr & s_Linha & vbCrLf
|
|
|
|
Carlos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2011 07:38 hs
Tiranossauro, isso não atrapalha e continua o mesmo problema.
|
|
|
|
Carlos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2011 07:49 hs
Um detalhe interessante é que se eu passar para uma caixa de texto antes... fuciona
Coloquei um caixa de texto
Text1 = paragStr
Na caixa de Texto não corta o contéudo.. Mas não grava no array fora da Sub.
Preciso fazer a chamada externa do paragrafo asssim:
Text1= typTEXTO(3)
Estou chamando o valor armazenado do 3 paragrafo...
Mas não da nada!
|
|
|
|
Carlos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2011 08:06 hs
Ainda surgiu outro problema, como pegar o restante do texto que tem menos que 5 pagragrafos.
caso no ultimo IF tenha apenas 3 paragrafos, terei que armazenar em uma outra variavel.
|
|
|
|
Carlos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2011 08:41 hs
Já descobri que ele está armazenando apenas a útima posição do vetor...
Assim caso eu chame Text1= typTEXTO(3) e se tiver apenas 3 parargráfos.. Fuciona
Mas se eu chamar Text1= typTEXTO(1) - Nâo gravou nada.
Como que gravo em cada paragrafo no vetor, eu fiz as chamadas corretas e redimensionei corretamente... tanto que com uma msgbox na Função aparece normal. Fora da função que não fica o valor armezando, somente a útima posição.
|
|
|
|
