VB6 3 texbox um arquivo txt


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: VB6 3 texbox um arquivo txt

Carlos R. Faria
não registrado

Postada em 24/03/2008 21:26 hs

Tenho três texbox, 1° título, 2° sub-título e 3° conteúdo.

o 1° texbox título com 1 linha.

o 2° texbox sub-título com 1 linha.

o 3° texbox conteúdo com 7 linhas.

Quando salvo em arquivo txt ele vem na ordem, exemplo

linha 1 - título / linha 2 -sub-título / linha 3,4,5,6 e 8 - conteúdo.

Quando peço para abrir ele não abre do jeito que foi salvo.

teria que vir dessa forma:

linha 1 no texbox título.

linha 2 no texbox sub-título.

linha 3,4,5,6,7,8 e 7 no texbox conteúdo.

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 25/03/2008 09:17 hs

Inclua os seus 3 text box no projeto, e e altere os nomes para o seguinte

TxtTitulo, TxtSubTitulo, TxtConteudo

a propriedade multiline do TxtConteudo mude para true

agora cole o seguinte código em um botão

Private Sub Command1_Click()

Dim Arq As Long
Dim Linha As String
Dim sTexto As String
Dim c As Integer

Arq = FreeFile
c = 0 ' este é um contador para determinar o local de cada linha
Open "c:casacaiu.txt" For Input As Arq 'Abre o arquivo para leitura
    Do Until EOF(Arq) 'Lê o arquivo ate o fim
    c = c + 1 ' vai somando mais um ao contador
      Line Input #Arq, Linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
      If c = 1 Then Txttitulo.Text = Linha ' então a primeira linha vai par o titulo
      If c = 2 Then TxtSubTitulo.Text = Linha ' a segunda para o sub-titulo
      If c >= 3 Then ' as demais vão para o conteudo
            sTexto = sTexto + Chr(13) & Chr(10) + Linha ' aqui a linha é quebrada em paragrafos
            TxtConteudo.Text = sTexto                        ' e incluida no txtconeudo
      End If
    Loop
Close Arq 'Fecha o arquivo
End Sub

Veja se isto te ajuda e poste para sabermos o resultado.

até

Macaubal

MACAUBAL
SP - BRASIL

ENUNCIADA !

Postada em 25/03/2008 12:36 hs

Coloque VBCRLF no final da linha que vai pra linha de baixo

Ex.:

Texto1 & Texto2 & VbCrLf & Text3

Vai ficar

Text1Text2

Text3

Carlos
não registrado

Postada em 25/03/2008 20:59 hs

muito bom, maravilha. ajudou.

mas quando eu abro o arquivo, vem uma linha em branco no textbox conteúdo, antes do conteúdo, tentei deletá-la mas não consegui. Chequei o arquivo txt e nele não possui nenhum linha em branco depois do sub-título e nem antes do conteúdo.

alguém sabe como fazer essa linha desaparecer.

Treze

SÃO VICENTE
SP - BRASIL

Postada em 25/03/2008 21:55 hs

Colega a solução está abaixo:

Private Sub Command1_Click()

Dim Arq As Long
Dim Linha As String
Dim sTexto As String
Dim c As Integer

Arq = FreeFile
c = 0 ' este é um contador para determinar o local de cada linha
Open "c:casacaiu.txt" For Input As Arq 'Abre o arquivo para leitura
    Do Until EOF(Arq) 'Lê o arquivo ate o fim
    c = c + 1 ' vai somando mais um ao contador
      Line Input #Arq, Linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
      If c = 1 Then Txttitulo.Text = Linha ' então a primeira linha vai par o titulo
      If c = 2 Then TxtSubTitulo.Text = Linha ' a segunda para o sub-titulo
      If c = 3 Then sTexto = Linha
       If c > 3 Then
       sTexto = sTexto + Chr(13) & Chr(10) + Linha
       txtconteudo.Text = sTexto

End If

Loop
Close Arq 'Fecha o arquivo
End Sub

TÓPICO EDITADO

Carlos
não registrado

Postada em 28/03/2008 18:58 hs

Muito bom, obrigado.

resolveu.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR