电竞比分网-中国电竞赛事及体育赛事平台

搜索
分享

按鍵精靈 TXT文件用法大全 (源碼) (免費(fèi)！)

 新貓 2014-06-14

（1）新建一個(gè)TXT文件

本帖隱藏的內(nèi)容


  2. set fso=CreateObject("Scripting.FileSystemObject")
  3. const forwriting=2
  4. const forreading=1
  5. set myfile=fso.createtextfile("路徑\文件名.txt")
復(fù)制代碼

（2）判斷一個(gè)文件是否存在

本帖隱藏的內(nèi)容


  2. Plugin IsFile = File.IsFileExit("路徑\文件名.txt")
  3. If IsFile = True
  4.     MessageBox "找到"
  5. Else
  6.     MessageBox "沒(méi)找到"
  7. EndIf
復(fù)制代碼

（3）刪除一個(gè)TXT文件

本帖隱藏的內(nèi)容


  2. Plugin File.DeleteFile("路徑\文件名.txt")
復(fù)制代碼

（4）給TXT文件寫入內(nèi)容

本帖隱藏的內(nèi)容

方法1

  2. set fso=CreateObject("Scripting.FileSystemObject")
  3. set myfile=fso.createtextfile("路徑\文件名.txt")
  4. myfile.writeline("內(nèi)容")
復(fù)制代碼


本帖隱藏的內(nèi)容

方法2

  2. Plugin File.WriteFileEx("路徑\文件名.txt", "內(nèi)容")
復(fù)制代碼

（5）讀取TXT文件指定某一行內(nèi)容

本帖隱藏的內(nèi)容


  2. Plugin Text = File.ReadFileEx("路徑\文件名.txt")
  3. txtArray=Split(Text,"|")
  4. // 顯示第5行，就寫 txtArray(4) 。 顯示第6行。就寫 txtArray(5)
  5. MessageBox txtArray(0)
復(fù)制代碼

（6）讀取TXT文件全部?jī)?nèi)容

本帖隱藏的內(nèi)容


  2. I=0
  3. Plugin Text = File.ReadFileEx("路徑\文件名.txt")
  4. txtArray=Split(Text,"|")
  5. While Len(txtArray(I))>=1
  6.     RE=RE & txtArray(I)
  7.     I=I+1
  8. EndWhile
  9. MessageBox RE
復(fù)制代碼

（7）讀取txt文件一共多少行

本帖隱藏的內(nèi)容


  2. I=0
  3. Plugin Text = File.ReadFileEx("路徑\文件名.txt")
  4. txtArray=Split(Text,"|")
  5. While Len(txtArray(I))>=1
  6.     I=I+1
  7. EndWhile
  8. MessageBox i
復(fù)制代碼

（8）覆蓋TXT文件指定某一行內(nèi)容

本帖隱藏的內(nèi)容


  2. // 欲寫入的數(shù)據(jù)
  3. neirong="感謝您使用由《按鍵用戶》制作的腳本"
  4. // 寫入第幾行
  5. jihang=4
  6. Plugin Text = File.ReadFileEx("路徑\文件名.txt")
  7. txtArray=Split(Text,"|")
  8. txt=""
  9. i=0
  10. Rem z
  11. If Len(txtArray(i))>=1
  12.     If i=jihang-1
  13.         // 覆蓋
  14.         txt = txt & neirong & vbCrLf
  15.     Else
  16.         txt = txt & txtArray(i) & Chr(10)
  17.     EndIf
  18.     i=i+1
  19.     Goto z
  20. Else
  21.     If i<=jihang
  22.         MessageBox "少于"&jihang&"行"
  23.         EndScript
  24.     EndIf
  25. EndIf
  26. // 刪除舊文檔
  27. Plugin File.DeleteFile("路徑\文件名.txt")
  28. // 儲(chǔ)存新文檔
  29. Plugin File.WriteFileEx("路徑\文件名.txt", txt)
復(fù)制代碼

（9）插入內(nèi)容到TXT文件的指定某一行

本帖隱藏的內(nèi)容


  2. // 欲寫入的數(shù)據(jù)
  3. neirong="感謝您使用此腳本"
  4. // 寫入第幾行
  5. jihang=5
  6. Plugin Text = File.ReadFileEx("路徑\文件名.txt")
  7. txtArray=Split(Text,"|")
  8. txt=""
  9. i=0
  10. // 若舊文檔大于jihang行
  11. If UBound(txtArray)>=1
  12.     For jihang-1
  13.         txt = txt & txtArray(i) & Chr(10)
  14.         i=i+1
  15.     EndFor
  16.     txt = txt & neirong & vbCrLf
  17.     For UBound(txtArray)-(jihang-1)
  18.         txt = txt & txtArray(i) & Chr(10)
  19.         i=i+1
  20.     EndFor
  21. Else
  22.     // 若舊文檔小于jihang行
  23.     For UBound(txtArray)
  24.         txt = txt & txtArray(i) & vbCrLf
  25.         i=i+1
  26.     EndFor
  27.     txt = txt & neirong & vbCrLf
  28. EndIf
  29. // 刪除舊文檔
  30. Plugin File.DeleteFile("路徑\文件名.txt")
  31. // 儲(chǔ)存新文檔
  32. Plugin File.WriteFileEx("路徑\文件名.txt", txt)
復(fù)制代碼

（10）讀取TXT文件指定某一行的第？到第？個(gè)字

本帖隱藏的內(nèi)容


  2. UserVar t=2 讀出txt第幾行文本
  3. UserVar i=5 從第幾個(gè)字開(kāi)始讀取
  4. UserVar O=8 結(jié)束讀取到第幾個(gè)字
  5. Plugin Text = File.ReadFileEx("路徑\文件名.txt")
  6. txtArray=Split(Text,"|")
  7. I=I-1
  8. O=O-I:T=T-1
  9. For O
  10.     str=str & Mid(txtArray(t),1+i,1)
  11.     i=i+1
  12. EndWhile
  13. MessageBox str
  14. EndScript
復(fù)制代碼

（11）打開(kāi)一個(gè)TXT文件

本帖隱藏的內(nèi)容


  2. RunApp "路徑\文件名.txt"
復(fù)制代碼

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花（0）

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多