Bruno VB
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 12:02 hs
Infelizmente não deu certo a utilização do filecopy para mudar a extensão de um arquivo *.doc para *.txt.... Gostaria de mais ajuda , se alguem tiver uma idéia... P.S.: O VB utilizado é 4.0 Agradeço desde já, |
|
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 13:20 hs
Nunca usei richtext, mas não dá para correr o texto, dividir em linhas onde tiver o Enter e gravar as linhas sucessivamente diretamente em .txt?
O comando Print #1 já coloca o enter no final...
|
|
|
|
Bruno VB
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 14:25 hs
Interessante essa sua ideia , teria como vc colocar um exemplo pra eu poder visualizar melhor ?? Obrigado... |
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 16:17 hs
colega você usou o filecopy corretamente Private Sub Command1_Click()
FileCopy "C:\teste.doc", "c:\novoarquivo.txt"
End Sub |
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 17:09 hs
Coloque um RichTextBox, e um botão de comando com esse código nele:
Private Sub Command1_Click()
' abre o arquivo texto para gravação
Open "c: emp estedelinhas.txt" For Output As #1
Dim str1 As String, str2 As Variant
' variável que contém o texto do RTB
str1 = rt1.Text
' Array que divide o texto nas quebras de linha
' a função split faz isso: separa uma variável em diversas outras
' sempre que encontra um delimitador - aqui é o
' vbCrLf, ou seja, uma enter
str2 = Split(str1, vbCrLf)
' Loop que percorre o array do início (LBound) até o fim (Ubound)
For n = LBound(str2) To UBound(str2)
' grava a linha no arquivo .txt
Print #1, str2(n)
Next n
' Fecha o arquivo
Close #1
End Sub
Espero que seja isso que você precisa.
(Não sei se essa idéia aí do Treze (é o mesmo?....) faz a conversão de tipos.)
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 17:12 hs
O VB 4 não tem a função Split....
Vou fazer de outro modo e posto.
|
|
|
|
