Question

求一个按键精灵代码，每一个操作循环从文本逐行复制一条信息

想做个循环发广告的脚本。现在只是很初级的抓点+复制粘贴的方式代替手工操作
但是我想弄成每次发帖的标题和内容直接从文档读取粘贴进去，发完一条帖子 ，回来循环发下一帖的时候再从文档第二行复制一行。发完这贴再下一贴从第三行复制，这样以此类推的。不是网上查到的那种一次性逐行复制，求大神指教

Answer 1

text = Plugin.File.ReadFileEx(＂C:\Users\lenovo\Desktop\1.txt＂)dim ... Then i=0 For UBound(MyArray) //下面这句是得到文本内容 SayString Cstr(MyArray(i)) Delay ...

Answer 2

你说发帖A用TXT第一行，B用第二行，C用第三行，但你又说不是那种一次性逐行复制。我怎么被你说的有点懵呢。

追问

可能我不专业吧表达不明白。通俗点说就是我用全部命令里边找的读取文本内容都是在我发的一个帖子里边把文档里存的100多条帖子的标题一口气全部复制进去了。

然而我想要的那种是我每发一篇文章只复制一行内容，这篇帖子发帖完成以后，在下个发帖里在复制第二行内容，以此类推这种。应该怎么实现啊。

追答

Text = Plugin.File.ReadFileEx("C:\Config.txt")    '读取内容
TXT = Split(Text, "|")   '以换行符为间隔变为数组
i=0  'TXT的第一行在数组里的坐标为0，第二行为1，以此类推 
For i = 0 To UBound(TXT) Step 1 '从数组坐标0到最后
    //下面这句是得到行文本内容   
    MessageBox  TXT(i)
Next

追问

谢谢大神，明天去公司试试，谢谢