我需要一个可以读取TXT文件内的数字,然后自动输入的程序。按键精灵可以吗?怎么弄?
急急急!回答好了加分!有问题直接提出,在线!比如:txt文件里有以下数字456456789789123123脚本可以自动识别,然后输出,最好可以一个一个识别...
急急急!回答好了加分!有问题直接提出,在线!
比如:txt文件里有以下数字
456456
789789
123123
脚本可以自动识别,然后输出,最好可以一个一个识别 展开
比如:txt文件里有以下数字
456456
789789
123123
脚本可以自动识别,然后输出,最好可以一个一个识别 展开
展开全部
这样的话你数字的格式要统一,是一行一个数字吧;就算是字符也是可以的,不过这样输出的是字符串格式,也就野陆喊是不能当数字变量用颂野。把C:\Documents and Settings\Administrator\桌面\11.txt
改成你的txt文件路径,“”要保留。你如果要输出到其他程序就直接输出到所需程序,不过估计你也悉雹不会弄。有问题再问吧。
Text = Plugin.File.ReadFileEx("C:\Documents and Settings\Administrator\桌面\11.txt")
//下面这句是向目标文件("C:\Documents and Settings\Administrator\桌面\11.txt")读出文本内容到变量(Text)
dim word
word = Split(Text, "|")
If UBound(word)>=0 Then
i=0
For UBound(word)
//下面这句是得到文本内容
i=i+1
Next
End If
For i = 0 To UBound(word)-1
MessageBox word(i)
Next
改成你的txt文件路径,“”要保留。你如果要输出到其他程序就直接输出到所需程序,不过估计你也悉雹不会弄。有问题再问吧。
Text = Plugin.File.ReadFileEx("C:\Documents and Settings\Administrator\桌面\11.txt")
//下面这句是向目标文件("C:\Documents and Settings\Administrator\桌面\11.txt")读出文本内容到变量(Text)
dim word
word = Split(Text, "|")
If UBound(word)>=0 Then
i=0
For UBound(word)
//下面这句是得到文本内容
i=i+1
Next
End If
For i = 0 To UBound(word)-1
MessageBox word(i)
Next
追问
麻烦可以把QQ留下吗? 想更详细点问。感谢。 加分
追答
还是百度站内信吧
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询