按鍵精靈,我要讀取最後一行其中用 1 起來的裡面的數字,然後把這個數字用來寫入一行時自動遞增

時間 2021-08-11 17:15:56

1樓:匿名使用者

讀寫文字的例子。可做為小精靈的讀取自定義引數。

sub 寫文字,這裡做為主程式來使用,大家需要用到的話可以把它最為一個子程式來呼叫。

1. sub 寫文字

2. px_1=***=(2) 2是引數用來作為xx功能

3. vbs set file=createobject(scripting.filesystemobject)

4. vbs const forwriting=2

5. vbs const forreading=1

6. 假如配置文字存在,則自動建立文字並寫入,假如存在,則自動讀取括號內的引數

7. if file.fileexists(d配置文字.txt)=0

8. vbs set file=createobject(scripting.filesystemobject)

9. 建立文字的位置

10. vbs set myfile=file.createtextfile(d配置文字.txt)

11. 寫入文字的位置

12. vbs set myfile=file.opentextfile(d配置文字.txt,forwriting)

13. 寫文字的內容

14. vbs myfile.writeline(px_1)

15. vbs myfile.close

16. gosub 讀文字

17. else

18. gosub 讀文字

19. endif

20. sub 寫文字

21. sub 讀文字

22. vbs set file=createobject(scripting.filesystemobject)

23. vbs set myfile=file.opentextfile(d配置文字.txt,forreading)

24. 讀第一行

25. px1

26. vbs nw=myfile.readline

27. 取字串,讀取()內的引數

28. use_len=instr(nw,()

29. use_len_1=instr(nw,))

30. use_0=mid(nw,use_len+1,use_len_1-use_len-1)

31. 讀取出來的值賦給指令碼中需要使用到的變數

32. px_1=use_0

33. px_1=cint(px_1) 讀出來的是字元,需要用到數字的話請把變數轉為整型

34. vbs myfile.close

35. return 讀文字

複製**

2樓:匿名使用者

實施例的讀出和寫入文字。自定義引數可用於閱讀的精靈。

子寫的文字在這裡做的主要程式,如果我們需要它的最子程式呼叫。

1。子寫文字

2。 px_1 = *** =(2)2個引數作為xx功能

3。 vbs集檔案的createobject(scripting.filesystemobject來)

4。 vbs常量forwriting = 2

5。 vbs常量forreading的= 1

6。配置文字自動建立文字和寫,如果存在的話,會自動讀取括號內的引數

7。如果file.fileexists(d配置文字txt)= 0

的vbs集檔案的createobject(scripting.filesystemobject的)

建立文字的位置

10。 vbs組(d myfile = file.createtextfile配置文字txt)

11寫文字的位置

12。 vbs集myfile = file.opentextfile(d配置的txt文字,forwriting)

13。書面文字內容14 vbs myfile.writeline(px_1)

15。 vbs myfile.close

16的gosub閱讀文字

17。品 18。 gosub閱讀文字

19 endif

20分寫的文字

21分閱讀文字

22的vbs集檔案的createobject(scripting.filesystemobject來) 23。 vbs設定myfile = file.

opentextfile(d配置的txt文字,forreading的)

24。讀出的第一行

25。 1804546

26。 vbs nw = myfile.readline

27。取字串,read()的引數

28。 use_len = instr(nw,()

29。,use_len_1 = instr(nw))

30需要使用變數的值分配給指令碼。 use_0 = mid(nw,use_len +1,use_len_1的,use_len-1)

31。讀出

32。 px_1 use_0

33。 px_1 = cint(px_1)讀出需要的字元數字變數整數

34。 vbs myfile.close

35回讀文字

複製**

3樓:匿名使用者

我需要一個可以讀取txt檔案內的數字,然後自動輸入的程式。按鍵精靈可以嗎?怎麼弄? 懸賞分:25

按鍵精靈怎麼讀取txt文字的內容,比如第一行到第十行都是數字 我要逐行提取這個數字,幫忙

4樓:匿名使用者

|按鍵來精靈迴圈

自讀取文bai本中du

的內容,**zhi如dao下

text = plugin.file.readfileex("d:\1.txt")

myarray = split(text, "|")if ubound(myarray)>=0 thenfor i = 0 to ubound(myarray) - 1traceprint cstr(myarray(i))next

end if

按鍵精靈讀取txt數字自動賦值給陣列,並依次呼叫陣列裡的數值

5樓:犁焮

給你陣列的資料吧。其他自己弄

text = plugin.file.readfileex("d:\11.txt")

id = split(text, " ")//空格為分界,最後一個11.txt檔案資料必須要空格結尾,

//或者另起一空行,否則會出現2145|,這個"|"符號。

a = 0//0是第一個賬號

t = ubound(id)//計算有幾個空格do賬號 = cstr(id(a))

traceprint 賬號

a = a + 1

if a > t then

exit do

end if

loop

//陣列是從cstr(id(0))開始的,ubound(id)從1開始的,所以a比t少一個數

6樓:匿名使用者

不難,但是你這個,怎麼是空格!

按鍵精靈如何從一個txt中讀取賬號密碼並填寫到登陸框

7樓:匿名使用者

你那是直接分出逗號部分,這寫不符合邏輯,建議先分出段落,再分出逗號部分,

比如裡面有三行數字:

123456,aaa

987654,bbb

653214,ccc

可以先分出段落

text = plugin.file.readfileex("d:\1.txt")

arr = split(text, "|")

//陣列arr是未知數,因為你可能是3段,可以9段,那麼用ubound函式得知多少個陣列

for i=0 to ubound(arr)-1

messagebox "第"&i&"段是:"&arr(i)

next

//以上得出段落的數,再把這些數逗號分開那個值就是split(arr(i), ",")

//總結寫法是:

text = plugin.file.readfileex("d:\1.txt")

arr = split(text, "|")

//for i=0 to ubound(arr)-1

//messagebox "第"&i&"段是:"&arr(i)

//next

for i=0 to ubound(arr)-1

messagebox "帳hao="&(split(arr(i), ",")(0))&"密ma="&(split(arr(i), ",")(1))

//saystring (split(arr(i), ",")(0))//帳hao

//saystring (split(arr(i), ",")(1))//密ma

next

8樓:

朋友我遇到點問題 想請教你幫忙

按鍵精靈針對單一視窗,按鍵精靈針對單一視窗

首先 不沒玩過你的這個遊戲 也不知道 奇蹟有沒有巨集 技能是否有共cd 這一說 但是我還是 把你想要的這個指令碼的原理給你 下面是 原始檔 plugin hwnd window.foreground rem 標記010 plugin bkgnd.keypress hwnd,49 delay 1500...

按鍵精靈讀取某一行 自己輸入數字 ,然後輸入到某處,細節如下

氣死鷹飛九天 下面是程式,你在介面新增一個輸入框就行了 y 1 event form1.inputbox1.changeform1.inputbox1.text left form1.inputbox1.text,5 end event call plugin.office.openxls c us...

按鍵精靈的指令碼如何繫結遊戲視窗,一個按鍵精靈的指令碼如何繫結遊戲視窗

仙境若火 繫結視窗的話只有用後臺了 hwnd plugin.window.find 0,這裡是遊戲名字 setsimmode 2 call plugin.bkgnd.moveto hwnd,1597,415 delay 1000 call plugin.bkgnd.leftclick hwnd,15...