USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Dividir texto no Array
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 31/08/2011 14:52 hs            

realmente, fui testar e não funcionou mas já arrumei teste agora

Dim typTEXTO() As String
Dim NewReg As Integer
Dim Contador As Integer
Contador = 0
Open strTXT For Input As #1 'Abre o arquivo para leitura
Do While Not EOF(1)
Contador = Contador + 1
Line Input #1, s_Linha
sTexto = sTexto & s_Linha & vbCrLf
If (Contador Mod 5) = 0 Then
NewReg = NewReg + 1
ReDim Preserve typTEXTO(NewReg)
typTEXTO(NewReg) = sTexto
sTexto = ""
Contador = 0
End If
Loop
Close #1
' O if abaixo é para pegar o restante do texto caso seja menor que 5
If sTexto <> "" Then
NewReg = NewReg + 1
ReDim Preserve typTEXTO(NewReg)
typTEXTO(NewReg) = sTexto
sTexto = ""
Contador = 0
End If

TÓPICO EDITADO
 
Carlos
não registrado
ENUNCIADA !
Postada em 31/08/2011 15:08 hs   
Testei e continua da mesma forma que já estava funcionando.. pegou e dividiu em duas strings, mas o restante ficou pendente.

Tente com esta string...

A estrada passava voando por baixo dos meus pneus.
“Desculpa.” Ela murmurou. “Foi uma piada.”
“Eu sei. Foi engraçado.”
Sua boca deformou para baixo.
“Irina e Kate falam que eu deveria te deixar em paz. Elas acham que eu te incomodo.”
“Não mesmo,” Eu assegurei à ela “Pelo contrário, sou eu quem está sendo rude -abominavelmente rude. Eu sinto muito.”
Você está indo para casa, não está? Ela pensou.
“Eu ainda.. não me decidi… totalmente.”
Mas você não vai ficar aqui. Seu pensamento era melancólico agora, triste.
“Não. Isso não parece estar… ajudando.”
Ela fez uma careta. “É minha culpa, não é?”
“Claro que não,” eu menti rapidamente.
Não seja cavalheiro.


Obsserve que vai gerar  um vetor com 2 posições e deveria ser 3.

no ultimo tem que terminar com isso:

Ela fez uma careta. “É minha culpa, não é?”
“Claro que não,” eu menti rapidamente.
Não seja cavalheiro.
   
Carlos
não registrado
ENUNCIADA !
Postada em 31/08/2011 15:13 hs   
Opss! Foi mal eu tinha errado aqui no fechamento do loop.
Deu certo sim!
Vc fechou o loop e chamou o If fora dele.

Poxa! Parabens! Obrigado
   
Página(s): 3/3     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página