永发信息网

vb的问题++++

答案:3  悬赏:20  手机版
解决时间 2021-08-01 05:27

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

点击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哪走了。

光看你问题表达就知道没人想回答了,那么长,而且没分。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
沙洋县荆门安奈儿怎么去啊,谁知道地址啊
诺基亚N97问题?
不好意思是什么意思,好想什么办呢点样解救?
怎么把QQ音速的图标点亮呀?留下QQ、
什么是蝌蚪文?
视频插上去安装不了?
辞职后拿不到工资怎么办
我是一只乱飞的鸟,也偶尔的投奔一下故乡的园
大祥区邵阳e亲母婴(明丽宝贝旗舰店)在什么地
DNF武器怎么才能安全的强到13
一汽丰田是否有vip用户,金色标识。
我的液晶屏出现水波纹,开始严重,后慢慢变细
如果一个女孩,送男孩衣服代表什么?
是现实太可怕,还是人心难测?
永定区张家界中国联通(新蓝天4G卖场)我想知道
推荐资讯
一只羊能卖多少钱,一只羊大约能卖多少钱
蚂蚁有牙齿吗?
球黑执事OP
有哪些描写天气的谚语
谁有梦幻涌泉寺的物价啊
吉首市湘西锦田幼儿园怎么去啊,谁知道地址啊
为什么我用flash CS3做的文件不能播放???
郊区佳木斯富锦200物流这个地址在什么地方,
1989年农历9月24日是什么星座?
初中上期的总结怎么写啊?120字左右~~
我有个好朋友 他的名字叫车车马 他要过生日了
用泰勒公式求√5的近似值,并使误差小于0.0001
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?