Bruno VB
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 17:36 hs
Vlw galera pela ajuda , irei fazer os testes necessários e dps posto a resposta aki.... Obrigado... |
|
|
|
|
|
|
|
Postada em 29/07/2008 07:59 hs
Bruno , so nao entendi o que tem o sendkeys haver com tudo isso, e tambem nao entendi pq nao conseguiu com o filecopy, é muito simples e funciona 100 por cento ok., deu algum erro de sintaxe quando vc usou o filecopy ? |
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/07/2008 11:42 hs
Testei o FileCopy e só faz mudar a extensão, mas não converte para texto puro.
Teste esta rotina (veja o caminho adequado para você). Coloque um RTB e um botão de comando:
-------------------------
Private Sub Command1_Click()
' abre o arquivo texto para gravação
Open "c: emp estedelinhas.txt" For Output As #1
Dim str1 As String, conta As Integer, pfim As Integer
Dim x As Integer, sfim As Integer
' dimensione este array de modo a comportar numero de linhas previsto
Dim str2(100)
' conta = contador de linhas que alimentará o array str2()
conta = 0
' str1=todo o texto do RTB
' sfim = tamanho da str1
str1 = rt1.Text: sfim = Len(str1)
' busca a primeira ocorrencia de CrLf (Enter)
' x será > 0 até não encontrar mais (ou seja, na última linha)
x = InStr(1, str1, vbCrLf)
' inicia loop para encontrar várias vezes, conforme numero de linhas
While x > 0
' pfim = ponto onde deverá cortar a str1 em str2(0 = primeira linha)
pfim = x - 1
' str2(conta) = a primeira linha
str2(conta) = Mid(str1, 1, pfim)
' grava a linha no TXT
Print #1, str2(conta)
' str1 passa a ser a parte que restou da str1 original
str1 = Right(str1, (sfim - (pfim + 2)))
sfim = Len(str1)
' incrementa conta
conta = conta + 1
' busca novamente o CrLF
x = InStr(1, str1, vbCrLf)
' quando x tiver valor 0 - isso ocorrerá na última linha,
' temos que pegar essa string que "sobrou" pois o loop vai encerrar
If x = 0 Then str2(conta) = str1
Wend
' grava a última linha no TXT
Print #1, str2(conta)
Close #1
End Sub
--------------------------------------
Acredito que funcionará em VB 4.
|
|
|
|
LETICIA ALVES
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/08/2008 17:41 hs
EU QUERIA SABER OQ É EXTENÇÃO DE ARQUIVOS DO WORD
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/08/2008 18:09 hs
.doc é a extensão de arquivos de Word - normalmente... tem todas as informações de formatação etc e tal. No Word 2007 parece que é .docx, não?
.txt é a extensão de arquivos de texto puro, ou seja, sem formatação, como os que se grava no Bloco de Notas (ou Notepad).
Espero que seja essa sua dúvida.
|
|
|
|
|
|
Postada em 21/08/2008 18:42 hs
Só uma correção: Não usa-se Filecopy para mudar extensão de arquivo, usa-se o comando Name do Visual Basic. ex.:
Name "Arquivo.doc" As "Arquivo.txt"
Solucionando o problema do BRUNO VB para salvar um documento criado em RichTextBox em puro arquivo de texto vc deve usar Open ao invés do método SaveFile, veja o código:
Dim lFile As Long
lFile = FreeFile
Open "C:Texto.txt" For Output Access Write As #lFile
Print #lFile, RichTextBox1.Text
Close #lFile
Assim as quebras de linhas serão salvas corretamente.
|
|
|
|
