用vb怎么实现 txt格式 转成 html格式
用vb如何实现 txt格式 转成 html格式
如果在指定目录 生成新的HTML文件
------解决方案--------------------
一个例子:
Option Explicit
Private Sub TXT2HTML(ByVal sTXT As String, ByVal sHTML As String)
Dim iFileTXT As Long, iFileHTML As Long, sLine As String
On Error Resume Next
iFileHTML = FreeFile()
Open sHTML For Output As #iFileHTML
If Err.Number = 0 Then
iFileTXT = FreeFile()
Open sTXT For Input As #iFileTXT
If Err.Number = 0 Then
Print #iFileHTML, " <HTML> <BODY> "
Print #iFileHTML, " </BODY> </HTML> "
Do While Not EOF(iFileTXT)
Line Input #iFileTXT, sLine
Print #iFileHTML, " <P> " & sLine & " </P> "
Loop
Close #iFileTXT
End If
Close #iFileHTML
End If
On Error GoTo 0
End Sub
Private Sub Form_Load()
TXT2HTML "C:\1.txt ", "C:\1.HTML "
End
End Sub
------解决方案--------------------
以下代码都在原有文件末尾多出这2个字符，不知道为什么，
其实改txt为html，就是在txt文件的字符中加入各种html语言标记符号。具体要写比较多的代码，以下代码简单的实现了你所说的。
Private Sub Command1_Click()
Dim str1 As String，str2 as string
Dim byt() As Byte
str1 = " <html> <head> <title> 示例 </title> </head> <body> "
str2 = " </body> </html> "
Open "d:\111.txt " For Binary As #1 '原始txt文件，如果生成复杂html
'则要添加更多类似代码
Open "d:\111.html " For Binary As 2 '保存的路径
Put #2, , str1
For i = 1 To LOF(1)
ReDim Preserve byt(i)
Get #1, , byt(i)
Put #2, , byt(i)
Next
Put #2, , str2
Close #1, #2
MsgBox "ok! "
End Sub
------解决方案--------------------
上面给的例子中有一行语句放错位置了, 修正一下:
Option Explicit
Private Sub TXT2HTML(ByVal sTXT As String, ByVal sHTML As String)
Dim iFileTXT As Long, iFileHTML As Long, sLine As String
On Error Resume Next
iFileHTML = FreeFile()
Open sHTML For Output As #iFileHTML
If Err.Number = 0 Then
iFileTXT = FreeFile()
Open sTXT For Input As #iFileTXT
If Err.Number = 0 Then
Print #iFileHTML, " <HTML> <BODY> "
Do While Not EOF(iFileTXT)
Line Input #iFileTXT, sLine
Print #iFileHTML, " <P> " & sLine & " </P> "
Loop
Close #iFileTXT
Print #iFileHTML, " </BODY> </HTML> "
End If
Close #iFileHTML
End If
On Error GoTo 0
End Sub
Private Sub Form_Load()
TXT2HTML "C:\1.txt ", "C:\1.HTML "
End
End Sub
如果在指定目录 生成新的HTML文件
------解决方案--------------------
一个例子:
Option Explicit
Private Sub TXT2HTML(ByVal sTXT As String, ByVal sHTML As String)
Dim iFileTXT As Long, iFileHTML As Long, sLine As String
On Error Resume Next
iFileHTML = FreeFile()
Open sHTML For Output As #iFileHTML
If Err.Number = 0 Then
iFileTXT = FreeFile()
Open sTXT For Input As #iFileTXT
If Err.Number = 0 Then
Print #iFileHTML, " <HTML> <BODY> "
Print #iFileHTML, " </BODY> </HTML> "
Do While Not EOF(iFileTXT)
Line Input #iFileTXT, sLine
Print #iFileHTML, " <P> " & sLine & " </P> "
Loop
Close #iFileTXT
End If
Close #iFileHTML
End If
On Error GoTo 0
End Sub
Private Sub Form_Load()
TXT2HTML "C:\1.txt ", "C:\1.HTML "
End
End Sub
------解决方案--------------------
以下代码都在原有文件末尾多出这2个字符，不知道为什么，
其实改txt为html，就是在txt文件的字符中加入各种html语言标记符号。具体要写比较多的代码，以下代码简单的实现了你所说的。
Private Sub Command1_Click()
Dim str1 As String，str2 as string
Dim byt() As Byte
str1 = " <html> <head> <title> 示例 </title> </head> <body> "
str2 = " </body> </html> "
Open "d:\111.txt " For Binary As #1 '原始txt文件，如果生成复杂html
'则要添加更多类似代码
Open "d:\111.html " For Binary As 2 '保存的路径
Put #2, , str1
For i = 1 To LOF(1)
ReDim Preserve byt(i)
Get #1, , byt(i)
Put #2, , byt(i)
Next
Put #2, , str2
Close #1, #2
MsgBox "ok! "
End Sub
------解决方案--------------------
上面给的例子中有一行语句放错位置了, 修正一下:
Option Explicit
Private Sub TXT2HTML(ByVal sTXT As String, ByVal sHTML As String)
Dim iFileTXT As Long, iFileHTML As Long, sLine As String
On Error Resume Next
iFileHTML = FreeFile()
Open sHTML For Output As #iFileHTML
If Err.Number = 0 Then
iFileTXT = FreeFile()
Open sTXT For Input As #iFileTXT
If Err.Number = 0 Then
Print #iFileHTML, " <HTML> <BODY> "
Do While Not EOF(iFileTXT)
Line Input #iFileTXT, sLine
Print #iFileHTML, " <P> " & sLine & " </P> "
Loop
Close #iFileTXT
Print #iFileHTML, " </BODY> </HTML> "
End If
Close #iFileHTML
End If
On Error GoTo 0
End Sub
Private Sub Form_Load()
TXT2HTML "C:\1.txt ", "C:\1.HTML "
End
End Sub