用VB编辑记事本文件内的数据

来源：百度知道 编辑：UC知道 时间：2024/04/29 20:06:25
如图:数据中有几个"列",分别用英文逗号隔开,我要用VB将目标文件的内容显示到TEXT1中,然后下面的按钮对TEXT1中的数据进行处理,并显示在TEXT2中.
"交换XY":将X列和Y列进行交换
"统改H","统改Y","统改X":对TEXT2中的对应列进行加和减的运算,加数和减数为常数,并由人来给出数字.运算完成之后,仍然显示在TEXT2中.
"数据存盘":将TEXT2中的数据进行另存为,路径需要手工指定,而不是固定路径.
谢谢各位大侠,为了避免没有满意的答案而使系统无谓的扣除掉积分,所以奖励分给的很少,但是追加分30.
我还是弄不好,要不你帮我做一个,要求:选择原始数据的文件>并显示到TEXT1>根据按钮功能得到对应的数据并显示在TEXT2>保存TEXT2中的数据到文本文件,自己选择文件的存放位置和文件名.发到我的邮箱,moneilin@126.com,包含源代码.我送你100分.任何人都同样的待遇,直接写一个给我邮箱里,然后在本页面提醒一下,奖励100分.

图片给出的程序是要控制的程序，还是要编的程序

Dim a() As String '声明一个数组

Private Sub Command1_Click() '交换按钮
Dim temp As String '临时变量
a = Split(Text1.text, ",") '将Text1中内容按逗号切分后存入数组a，a现在有4个元素，分别是Text1中的四个数据
temp = a(1): a(1) = a(2): a(2) = temp '交换x和y
refreshB '刷新Text2
End Sub

Private Sub Command2_Click(Index As Integer) '3个统改按钮
Dim b(3) As String, delta As Single '声明数组b 和统改量
b(1) = "Y": b(2) = "X": b(3) = "H" '将3个字母分别放入数组b
delta = Val(InputBox("请输入 " & b(Index + 1) & " 的统改值："))
a(Index + 1) = Str(Val(a(Index + 1)) + delta) '将统改值与原值相加
refreshB '刷新Text2
End Sub

Sub refreshB() '刷新Text2
Text2.text = "" '
For i = 0 To UBound(a) '
Text2.text = Text2.text & a(i) '将Text1中4个数据计算过后写入Text2
If i < UBound(a) Then Text2.text = Text2.text & "," '每个数据后加逗号