Printable View
Hi,
I am having bunch of text files (*.txt) which i need to convert to html files (.htm). How to do this?
For e.g. There were nearly about 1,000 files in a specified path c:\text\*.txt, which i need to convert all the files into html file with a same file name.
Please help.
Thanks,
Shanmugam
Try this ShanmugamQuote:
Originally Posted by Shanmugam
create empty word document, store VBA code (ALT+F11)
and prepare input and output directories directory, run code (ALT+F8)
C:\WordTest\input\ (for *.txt files)
C:\WordTest\output\ (for *.html files)
happy and sunny day
Om Prakash
Pavel Humenuk
Sub LoopThroughFilesInFolder()
Dim i As Integer
Dim docDoc As Document
Dim myVar As String
myVar = "C:\WordTest\output\"
With Application.FileSearch
.LookIn = "c:\WordTest\input\"
.FileName = "*.txt"
.Execute
For i = 1 To .FoundFiles.Count
' Message box for informational purposes only
MsgBox "File #" & i & " is " & .FoundFiles(i)
'opens files individually
Set docDoc = Documents.Open(FileName:=.FoundFiles(i))
'change the doc and save it
'docDoc.Range.InsertAfter "test"
'docDoc.SaveAs FileName = test1a.htm, FileFormat:=wdFormatHTML
'docDoc.SaveAs FileName:=myVar & docDoc, FileFormat:=wdFormatRTF
docDoc.SaveAs FileName:=myVar & docDoc, FileFormat:=wdFormatHTML
'docDoc.SaveAs FileName:=myVar & docDoc, FileFormat:=wdFormatWebArchive ' OR TRY THIS
'docDoc.SaveAs FileName = test1a.htm, FileFormat:=wdFormatRTF
docDoc.Close (wdSaveChanges)
Next i
End With
End Sub
Try this ShanmugamQuote:
Originally Posted by Shanmugam
create empty word document, store VBA code (ALT+F11)
and prepare input and output directories directory, run code (ALT+F8)
C:\WordTest\input\ (for *.txt files)
C:\WordTest\output\ (for *.html files)
sorry, me forget new file extension :-)
happy and sunny day and good night
Om Prakash
Pavel Humenuk
Sub LoopThroughFilesInFolder()
Dim i As Integer
Dim docDoc As Document
Dim myVar As String
myVar = "C:\WordTest\output\"
With Application.FileSearch
.LookIn = "c:\WordTest\input\"
.FileName = "*.txt"
.Execute
For i = 1 To .FoundFiles.Count
' Message box for informational purposes only
MsgBox "File #" & i & " is " & .FoundFiles(i)
'opens files individually
Set docDoc = Documents.Open(FileName:=.FoundFiles(i))
FileName = Mid(docDoc, 1, Len(docDoc) - 4) & ".html"
'change the doc and save it
'docDoc.Range.InsertAfter "test"
'docDoc.SaveAs FileName = test1a.htm, FileFormat:=wdFormatHTML
'docDoc.SaveAs FileName:=myVar & FileName, FileFormat:=wdFormatRTF
docDoc.SaveAs FileName:=myVar & FileName, FileFormat:=wdFormatHTML
'docDoc.SaveAs FileName:=myVar & FileName, FileFormat:=wdFormatWebArchive ' OR TRY THIS
'docDoc.SaveAs FileName = test1a.htm, FileFormat:=wdFormatRTF
docDoc.Close (wdSaveChanges)
Next i
End With
End Sub
I tried this approach, but get an run time error 13 on this line:Quote:
Originally Posted by hardlife
Set docDoc = Documents.Open(FileName:=.FoundFiles(i))
I set a reference to the Microsoft Word Object library.
Is there some other reference required?????
Quote:
Originally Posted by orange
May be you are not running code directly from word.
create empty WORD document, store VBA code (ALT+F11)
and prepare input and output directories directory, run code (ALT+F8)
hope this helps
HAPPY WINTER DAY
Pavel Humenuk
Pavel,Quote:
Originally Posted by hardlife
I am trying to run the code from Access 2003.
I am now getting an error on the File Save
It says I'm tring to save a file with the name of a file that is already open????
Try run this code directly from word,Quote:
Originally Posted by orange
because I am not skilled enough to
run it from Access.
Me is wishing you good luck, Pavel
Thanks Pavel.Quote:
Originally Posted by hardlife
I did get it to work in Access 2003, I had to Create the word.application
and I had to adjust the filename variable. It may not be an issue but I don't know enough about Word to know for sure.
I did get errors that said I couldn't save a file with the name of an already open file??
I'm not sure if any of this helps the person who started this thread.
Here is the code for using with Access 2003.
orange
Code:'---------------------------------------------------------------------------------------
' Procedure : LoopThroughFilesInFolder
' Author : user
' Date : 1/18/2009
' Purpose : From VBA EXpress -- Pavel Humenuk
'
' Convert a series of txt files into html as a batch process.
' Open a series of X.txt documents with Word, then save each document
' in html format.
'---------------------------------------------------------------------------------------
'
Sub LoopThroughFilesInFolder()
Dim i As Integer
Dim myFileName As String
Dim myVar As String
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = False
Dim docDoc As Word.Document
myVar = "I:\WordTest\output\"
With Application.FileSearch
.LookIn = "I:\WordTest\input\"
.FileName = "*.txt"
.Execute
For i = 1 To .FoundFiles.Count
' Message box for informational purposes only
MsgBox "File #" & i & " is " & .FoundFiles(i)
'opens files individually
Set docDoc = Documents.Open(.FoundFiles(i))
Debug.Print Documents.Open(.FoundFiles(i)).Name
myFileName = Mid(docDoc, 1, Len(docDoc) - 4) & ".html"
'change the doc and save it
'docDoc.Range.InsertAfter "test"
'docDoc.SaveAs FileName = test1a.htm, FileFormat:=wdFormatHTML
'docDoc.SaveAs FileName:=myVar & FileName, FileFormat:=wdFormatRTF
docDoc.SaveAs myVar & myFileName, wdFormatHTML
MsgBox "File saved in Output Folder as " & myFileName
'docDoc.SaveAs FileName:=myVar & FileName, FileFormat:=wdFormatWebArchive ' OR TRY THIS
'docDoc.SaveAs FileName = test1a.htm, FileFormat:=wdFormatRTF
docDoc.Close (wdSaveChanges)
Next i
End With
End Sub
Quote:
Originally Posted by orange
Hi it is unbelievable, at least, me did not know how to use object,
it is good example form me, thank You, happy winter day, Pavel
Hi it is unbelievable, at least, me did not know how to use object,
it is good example for me, thank You, happy winter day, Pavel
Quote:
Originally Posted by hardlife
You are very welcome.
orange
Hi,
Its converting through word document. If we open the source code from html, its showing various codes.
But i need direct convert from .txt to .html and if i open html it should show only text.
For e.g. here is the command i type in .txt file:
<START>
<TITLE>New</TITLE>
<BODY>
<P>
This is test
</P>
</BODY>
<END>
If open html it should show “This is test” and if we do 'view source' it should show only the above html tag starts with <START> and ends with <END> and not any other codes.
Thanks,
Shanmugam
Quote:
Originally Posted by Shanmugam
Shanmugam,
You have been shown a simple way to auto-convert (in a batch manner) from text to html by means of Word. This method inserts some comments describing the incoming document but these are only comments. The comments do not affect the HTML. They could be used by Word if it was to convert the document to RTF or some other format, I think.
Most HTML documents have some meta data beyond what you are suggesting. What is your concern with the embedded comments?
If you really want to do get rid of the comments then I think you should be looking at Regular Expressions. This technique could be automated to parse code.
orange
Yes, i need HTML output without meta data. Is there any way to convert without interpreting MS-Word? I hope this would help to convert without meta data.
Shanmugam
Can you please tell us why you don't want the embedded comments and meta tags?Quote:
Originally Posted by Shanmugam
If you want the most basic HTML, then in your Access script
Create and populate variables, eg,
Dim myTop as string
Dim myBottom as string
Dim txtRead as string
Dim newFileBody as string
MyTop = "<html><body>"
MyBottom = "</body></html>"
For each file in my list
txtRead = ""
txtRead = ** Read the text file into a variable
newFileBody = myTop & txtRead & myBottom 'the minimal data for HTML
Write newFileBody as your File.html 'adjust to use your existing file name 'not the extension
Next
This would give you NO formatting, but it would be an HTML file.
(But I don't think this is really what you want/need)
For more info on
**Read the text into a variable
see http://msdn.microsoft.com/en-us/library/aa155438(office.10).aspx
and http://www.techbookreport.com/tutorials/fso1.html
i am doing a project work where i need to convert all the text files into html file. For which currently i am doing this manually (i.e. opening a notepad, then file save as *.html and then save the file). If you open that converted html file it will not have any embedded codes, hence i am looking for the same.
Will be great, if you could prove me the same. The above codes (2 sets of codes) confusing me lot.
Please help!!
Thanks,
Shanmugam
I do not understand why the method that was given is not satisfactory.Quote:
Originally Posted by Shanmugam
If you look at the resultiing HTML files in any browser, the HTML is rendered as expected. The comments within the file are irrelevant to the browser.
This code:
Dim myTop as string
Dim myBottom as string
Dim txtRead as string
Dim newFileBody as string
MyTop = "<html><body>"
MyBottom = "</body></html>"
For each file in my list
txtRead = ""
txtRead = ** Read the text file into a variable
newFileBody = myTop & txtRead & myBottom 'the minimal data for HTML
Write newFileBody as your File.html 'adjust to use your existing file name 'not the extension
Next
is not working for me. i dont know where to paste this code. do i need to append code with the previous main code or this is something different code where i should not append with anything?
Quote:
Originally Posted by Shanmugam
What environment are you working in?
Your question was in an Access forum. One of the responses was based on a Word environment. My responses apply to Access 2003 environment.
Could you please respond to my previous post regarding the comments and meta tags within the HTML file?
i dont know where to apply your previous code. is this a separate code from the rest?