怎样用VB编写txt文档

来源：百度知道 编辑：UC知道 时间：2024/09/28 12:26:50
请教怎样用VB编写一个程序可以书写成以下格式txt文档并存盘到c:\目录下
txt文档格式
For M5|Adr 63|TO Start-Line aBFFB CT| | | |
For M5|Adr 64|KD1 Q1 CT| | |Z 57.48156 m |
For M5|Adr 65|KD1 Q1 09:44:512 CT|Rb 1.02559 m |HD 10.331 m | |
For M5|Adr 66|KD1 370C1 09:45:322 CT|Rf 2.20885 m |HD 10.553 m | |
For M5|Adr 67|KD1 370C1 09:45:372 CT|Rf 2.20879 m |HD 10.552 m | |
For M5|Adr 68|KD1 Q1 09:45:522 CT|Rb 1.02556 m |HD 10.332 m | |
For M5|Adr 69|KD1 370C1 09:45:52 CT| | |Z 56.29832 m |
For M5|Adr 70|KD1 370C2 09:54:242 CT|Rf 2.2358

文件通用读、写、追加函数

Sub Appdoc(ByVal docpath As String, ByVal txt As String)'追加记录函数
Open docpath For Append As #1
Print #1, txt
Close #1
End Sub

Public Function openfile(ByVal filepath As String) As String'读入文件函数
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function

Public Function savefile(ByVal filepath As String, ByVal txt As String)'保存文件函数
Open filepath For Output As #1
Print #1, txt
Close #1
End Function

Private Sub Command1_Click()
Dim a As String
a = "M5|Adr 63|TO Start-Line aBFFB CT| | | |"
Dim b As String
b = "M5|Adr 64|KD1 Q1 CT| | |Z 57.48156 m |"