VBS 如何向Txt文件中指定行插入內容

'引數1: txt檔案

'引數2: 在第幾行後插入資料
'引數3: 插入資料內容
call addline("c:\test.txt",2,"2")
function addline(strpath,intline,strinput)
dim fso,myfile
set fso = createobject("scripting.filesystemobject")
'以唯讀的方式開啟檔案
set readfile = fso.opentextfile(strpath,1,true)
'以只寫的方式開啟檔案
set writefile = fso.opentextfile("newfile.txt",2,true)
'如果當前的指標不在整個文件的末尾，讀取文字的整行內容
do until readfile.atendofstream
writefile.writeline readfile.readline
intline = intline - 1
'判斷游標是否已達到指定行，達到則退出函式        
if intline = 0 then
writefile.writeline strinput
end if
loop
readfile.close 
writefile.close 
set fso = nothing 
end function

C 提取TXT文件指定內容

早上有分享一篇 vb.net提取txt文件指定內容 那是原的需求用vb.net寫的。剛才有只懂c 的提及，vb.net的語法，很不好看。因為同這樣形式的資料獲取，有得學習，希望insus.net有時間時，提供c 的語法。由於兩篇的要求一樣，只是開發語言不一樣，因此為了節省篇幅，要求就不重複了。每個類...

讀取txt中某列元素中指定字元

需要得到這列數字 import codecs import re 開啟txt檔案，以 utf 8 編碼讀取 f codecs.open 路徑 mode r encoding utf 8 line f.readline 以行的形式進行讀取檔案 list1 while line a line.split...

拆離Notes文件中指定格式檔案

以下 演示如何從notes文件中拆離excel格式的檔案到指定路徑c sub initialize on error goto errhandle dim ss as new notessession dim doc as notesdocument dim varfile as variant d...