把以下的文字輸入新建腳本(原始檔部份)
Delay 5000
//本腳本不用修改，只需要設置page.txt就好
//page.txt在下面將詳細描述。
//在page.txt文件中的第一行寫數字，代表第幾個“+”處的內容，共可以標9處
//在要讀的文章開始前一行添加+和尾行添加-就可以讀取+與-之間的文章
Rem star
VBS Dim fso,n
n=0
xunhuan=0
wen="page.txt"
//出處page.txt
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
//============讀取txt文件內容
VBS set myfile=fso.opentextfile(wen,forreading)
VBS a=myfile.readline
i=mid(a,1,1)
Time1=mid(a,3,4)
If len(Time1)<3
Time1=200
EndIf
xunhuan=mid(a,8,1)
If len(xunhuan)=0
xunhuan=0
EndIf
While true
VBS a=myfile.readline
If mid(a,1,1)="+"
n=n+1
If asc(n)=asc(i)
Goto main
EndIf
EndIf
If myfile.atendofstream=-1
SayString 沒有找到相關 |
收藏
分享
讚
幹
分享
分享
