用VB编写一个数据据转换的小软件

来源：百度知道 编辑：UC知道 时间：2024/06/15 22:30:05
原数据据如下:
1.29
19.8
1.32
26.8
1.20
28.9
行数不限
转换后第一二行固为
0.100
Q
下面转换为
1.29
1.32
1.20
F
0.0198
0.0268
0.0289
E
也就是说,第一二行分别写0.100和Q然后把单数行的放在一列,下面一行写上F再把双数行的放在一列并乘以0.001,最下面写上E

这个很容易啊！
Private Sub Command1_Click()
Dim q() As String
Dim w As String
Dim i As Integer
Dim j As Integer
Open "E:\原始数据.txt" For Input As #1
Do Until EOF(1)
Line Input #1, w
i = i + 1
Loop
Close #1
ReDim q(i) As String
Open "E:\原始数据.txt" For Input As #1
For j = 1 To i
Line Input #1, q(j)
Next j
Close #1
Open "E:\转换后数据.txt" For Output As #1
Print #1, "0.100"
Print #1, "Q"
For j = 1 To i
If j Mod 2 = 1 Then Print #1, q(j)
Next j
Print #1, "F"
For j = 1 To i
If j Mod 2 = 0 Then Print #1, Format(Val(q(j)) * 0.001, "0.#########")
Next j
Print #1, "E"
Close #1
End Sub