vb的问题++++

问一下如果想下面这样的话要的脚本

点击command2

打开main.txt(没有就创建。）（文件目录下）

datas（任意文字)+data-1(data一定是数字）（变量）=main.txt\listline(最后一行）

那么，“变量do1变成=main.txt\listline(最后一行）

“变量do2变成=main.txt\listline(最后一行）

“变量do3变成“=main.txt\listline(最后一行）

变量do4变成=main.txt\listline(最后一行）

“变量do5变成=main.txt\listline(最后一行）

“变量do6变成=main.txt\listline(最后一行）

“变量do7变成=main.txt\listline(最后一行）

“变量do8变成=main.txt\listline(最后一行）

“变量do9变成=main.txt\listline(最后一行）

如果某一行可以被十整除并且内容=datas（任意文字)+data-1(data一定是数字）（变量）

那么，“某一行”+1变成变量do1

“某一行”+2变成变量do2

“某一行”+3变成变量do3

“某一行”+4变成变量do4

“某一行”+5变成变量do5

“某一行”+6变成变量do6

“某一行”+7变成变量do7

“某一行”+8变成变量do8

“某一行”+9变成变量do9

（直至main.txt结束）

如果没有（直至main.txt结束也没有某一行可以被十整除并且内容=datas（任意文字+data-1(data一定是数字）（变量））则

那么，变量do1=“找不到”

变量do2=“找不到”

变量do3=“找不到”

变量do4=“找不到”

变量do5=“找不到”

“变量do6=“找不到”

变量do7=“找不到”

“变量do8=“找不到”

变量do9=“找不到”

end if

data-1(data一定是数字）

datas（任意文字）+data(data一定是数字）=me.Image1.picture

点击command1

打开main.txt(没有就创建。）（文件目录下）

datas（任意文字)+data+1(data一定是数字）（变量）=main.txt\listline(最后一行）

那么，“变量do1变成=main.txt\listline(最后一行）

“变量do2变成=main.txt\listline(最后一行）

“变量do3变成“=main.txt\listline(最后一行）

变量do4变成=main.txt\listline(最后一行）

“变量do5变成=main.txt\listline(最后一行）

“变量do6变成=main.txt\listline(最后一行）

“变量do7变成=main.txt\listline(最后一行）

“变量do8变成=main.txt\listline(最后一行）

“变量do9变成=main.txt\listline(最后一行）

如果某一行可以被十整除并且内容=datas（任意文字)+data+1(data一定是数字）（变量）

那么，“某一行”+1变成变量do1

“某一行”+2变成变量do2

“某一行”+3变成变量do3

“某一行”+4变成变量do4

“某一行”+5变成变量do5

“某一行”+6变成变量do6

“某一行”+7变成变量do7

“某一行”+8变成变量do8

“某一行”+9变成变量do9

（直至main.txt结束）

如果没有（直至main.txt结束也没有某一行可以被十整除并且内容=datas（任意文字+data+1(data一定是数字）（变量））则

那么，变量do1=“找不到”

变量do2=“找不到”

变量do3=“找不到”

变量do4=“找不到”

变量do5=“找不到”

“变量do6=“找不到”

变量do7=“找不到”

“变量do8=“找不到”

变量do9=“找不到”

end if

data+1(data一定是数字）

datas（任意文字）+data(data一定是数字）=me.Image1.picture

pravite chuanjian sub()
On Error GoTo Err:
Open "c:\text.txt" For Input As #1
Close #1
Kill "c:\text.txt"
Command1_Click
Exit Sub
Err:
If Err.Number <> 53 Then Exit Sub
Open "c:\text.txt" For Output As #2
For i = 1 To 1000
Print #2, i & " 内容"
Next i
Close #2
end sub

读取第一行
Dim str As String
Open "c:\text.txt" For Input As #1
For i = 1 To 1
Chr (13) & Chr(10)
Line Input #1, str
Next i

Text1.Text = str
Close #1

这段代码是 关于创建 和写入的,如果你非要进行你那些复杂的判断,你用 MId(字符,字符开始位置,字符长度) 函数自己判断吧!加油!你可以的!

操，怎么长。

我没空看。

采纳我吧，不然分就被TX哪走了。

光看你问题表达就知道没人想回答了，那么长，而且没分。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息