讀文腳本
⑴ 怎麼利用VBS腳本來逐行讀取文本內容並復制，注意不是VB，是VBS腳本，哪位大能來幫幫小弟！
Dim n
Dim s
If Dir("c:\2.txt") <> "" Then
Open "c:\2.txt" For Input As #1 '保存上一次讀的行數文件
Line Input #1, s
Close #1
n = CInt(s)
Else
n = 1
End If
s = ""
Open "c:\1.txt" For Input As #1 '要讀的目標文件
Dim b As Long
For b = 1 To n
If Not EOF(1) Then
Line Input #1, s
End If
Next b
MsgBox (s)
n = n + 1
If Dir("c:\2.txt") <> "" Then Kill "c:\2.txt" '保存本次讀的行數
Open "c:\2.txt" For Append As #2
Print #2, n
Close #2
Close #1
⑵ 求linux 讀文件 腳本
不要用管道讀文件，bash會用子shell執行管道兩邊的命令。子shell里的任何改動都無法影響父shell。
改成:
while read line
do
...
done < your_file_name
⑶ perl腳本讀文件最優方法請教
你的代碼一下子把所有行都讀到@Contant里了，自然耗內存。
這種情況要用while循環一行一行地讀，參見下面的改法。
my ($filename) = "text.unl";
unless (open (RDH,$filename))
{
print "File open failed.";
}
while (my $line = <RDH>) {
push @a, $line if /aaa/;
push @b, $line if /bbb/;
push @c, $line if /ccc/;
}
close RDH or die "Cannot close $filename:$!";
⑷ 怎麼利用VBS腳本來逐行讀取文本內容並復制，注意不是VB，是VBS腳本!
下面代碼是第一次運行時讀取復制是第一行內容，再一次運行就是第二行的
FileName="c:\123.txt" '修改成你要復制字元到剪切板的文件
Set fso=CreateObject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
configPath=ws.ExpandEnvironmentStrings("%systemroot%") & "\~!filetmp"
set confObject=fso.opentextfile(configPath,1,1)
FignNum=""
if not confObject.atendofstream then FignNum=confObject.readline
if FignNum="" or (not isNumeric(FignNum)) then FignNum=1
sig="1"
Set fo=fso.OpenTextFile(FileName,1,1)
while not fo.atendofstream
text=fo.readline
if cint(sig)=cint(FignNum) then
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = text
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy
writefileAdd FignNum
wscript.quit
end if
sig=sig+1
wend
msgbox "文件已經到末尾，下次將又重第一行開始復制"
call writefile
sub writefile
set f=fso.opentextfile(configPath,2,1)
f.writeline "1"
f.close
end sub
sub writefileAdd(value)
set f=fso.opentextfile(configPath,2,1)
f.writeline value+1
f.close
end sub
⑸ 用python讀取文本文件，對讀出的每一行進行操作，這個怎麼寫
用python讀取文本文件，對讀出的每一行進行操作，寫法如下：
f=open("test.txt","r")
whileTrue:
line=f.readline()
ifline:
pass#dosomethinghere
line=line.strip()
p=line.rfind('.')
filename=line[0:p]
print"create%s"%line
else:
break
f.close()
⑹ 如何用VBS腳本程序讀取文本文件
ReadLine 方法
從 TextStream 文件中讀入一整行字元（直到下一行，但不包括下一行字元），並返回結果字元串。
object.ReadLine
object 應為 TextStream 對象的名稱。
說明
下面例子說明如何使用 ReadLine 方法從 TextStream 文件中讀取字元並返回字元串:
Function ReadLineTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
MyFile.WriteLine "Hello world!"
MyFile.WriteLine "The quick brown fox"
MyFile.Close
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadLineTextFile = MyFile.ReadLine ' Returns "Hello world!"
End Function
⑺ 幫我改個讀取文本的shell腳本
我也剛剛學， 目前只能看出來你的錯誤
你用 awk '{print $1}'這個命令單獨試試看就知道了
我正在想辦法 稍等
終於想到了一個辦法 不用寫腳本了完成你上述功能只用一條命令
cat data.txt | awk '{system("bash tmp.sh"" "$1" "$2)}'
你先隨便寫個tmp.sh腳本 試試看能不能用， 不行我在想辦法
⑻ 中華經典美文誦讀文字腳本怎樣寫
翡冷翠山居閑話
作者：徐志摩
徐志摩（1896—1931），浙江海寧人，詩人。著有詩集《志摩的詩》、《猛虎集》，散文集《落葉》、《巴黎的鱗爪》，短篇小說集《輪盤》等。
在這里出門散步去，上山或是下山，在一個晴好的五月的向晚，正像是去赴一個美的宴會，比如去一個果子園，那邊每株樹上都是滿掛著詩情最秀逸的果實，假如你單是站著看還不滿意時，只要你一伸手就可以採取，可以恣嘗鮮味，足夠你性靈的迷醉。陽光正好暖和，決不過暖；風息是溫馴的，而且往往因為他是從繁花的山林里吹度過來並帶來一股幽遠的澹香，連著一息滋潤的水氣，摩挲著你的顏面，輕繞著你的肩腰，就這單純的呼吸已是無窮的愉快；空氣總是明凈的，近谷內不生煙，遠山上不起靄，那美秀風景的全部正像畫片似的展露在你的眼前，供你閑暇時鑒賞。
作客山中的妙處，尤在你永不須躊躇你的服色與體態；你不妨搖曳著一頭的蓬草，不妨縱容你滿腮的苔蘚；你愛穿什麼就穿什麼；扮一個牧童，扮一個漁翁，裝一個農夫，裝一個走江湖的吉卜賽，裝一個獵戶；你再不必提心去整理你的領結，你盡可以不用領結，給你的頸根與胸膛一半日的自由，你可以拿一條這邊艷色的長巾包在你的頭上，學一個太平軍的頭目，或是拜倫那埃及裝的姿態；但最要緊的是穿上你最舊的舊鞋，別管他模樣不佳，他們是頂可愛的好友，他們承著你的體重，卻不叫你記起你還有一雙腳在你的底下。
這樣的玩頂好是不要約伴，我竟想嚴格的取締，只許你獨身，因為有了伴多少總得叫你分心，尤其是年輕的女伴，那是最危險最專制不過的旅伴，你應得躲避她像你躲避青草里一條美麗的花蛇!平常我們從自己家裡走到朋友家裡，或是我們執事的地方，那無非是在同一個大牢里從一間獄室移到另一獄室去，拘束永遠跟著我們，自由永遠尋不到我們；但在這春夏間美秀的山中或鄉間，你要是有機會獨身閑逛時，那才是你福星高照的時候，那才是你實際領受，親口嘗味，自由與自在的時候，那才是你肉體與靈魂行動一致的時候；朋友們，我們多長一歲年紀，往往只是加重我們頭上的枷，加緊我們腳脛上的鏈，我們見小孩子在草里在沙堆里在淺水裡打滾作樂，或是看見小貓追他自己的尾巴，何嘗沒有羨慕的時候。但我們的枷，我們的鏈，永遠是制定我們行動的上司!所以只有你單身奔赴大自然的懷抱時，像一個裸體的小孩撲入他母親的懷抱時，你才知道靈魂的愉快是怎樣的，單是活著的快樂是怎樣的，單就呼吸單就走道單就張眼看聳耳聽的幸福是怎樣的。因此你得嚴格的為己，極端的自私，只許你，體魄與性靈，與自然同在一個脈搏里動跳，同在一個音波里起伏，同在一個神奇的宇宙里自得。我們渾朴的天真是像含羞草似柔嬌的，一經同伴的抵觸，他就卷了起來，但在澄靜的日光下，和風中，他的姿態是自然的，他的生活是無阻礙的。
你一個人漫遊的時候，你就會在青草里坐坐，仰卧，甚至有時打滾，因為草的和暖的顏色，自然的喚起你童稚的活潑；在靜僻的道上你就會不自主的狂舞，看著你自己的身影幻出種種詭異的變相，因為道旁樹木的陰影在他們於徐的婆娑里暗示你舞蹈的快樂；你也會得信口的歌唱，偶爾記起斷片的童調，與你自己隨口的小曲，因為樹林中的鶯燕告訴你春光是應得贊美的；更不必說你的胸襟自然會跟著漫長的山徑開拓，你的心地會看著澄藍的天空靜定，你的思想和著山壑間的水聲，山罅里的泉響，有時一澄到底的清澈；有時激起成章的波動，流，流，流入涼爽的橄欖林中，流入嫵媚的阿諾河去……
並且你不但不須遊伴，每逢這樣的遊行，你也不必帶書。書是理想的伴侶，但你應得帶書，是在火車上，在你住處的客室里，不是在你獨身漫步的時候，什麼偉大的深沉的鼓舞的清明的優美的思想的根源不是可以在風籟中，雲彩里，山勢與地形的起伏里，花草的顏色與香氣里尋得?自然是最偉大的一部書，歌德說，在他每一頁的字句里，我們讀得最深奧的消息。並且這書上的文字是人人懂得的，阿爾卑斯與五老峰，西西里與普陀山，萊因河與揚子江，梨夢湖與西子湖，建蘭和瓊花，杭州西湖的蘆雪與威尼斯夕照的紅潮，百靈與夜鶯，更不提一般紫的黃麥，一般黃的紫藤一般青的青草，同在大地上生長，同在和風中波動——他們應用的符號是永遠一致的，他們的意義是永遠明顯的，只要你自己性靈上不長瘡瘢，眼不盲，耳不塞，這無形跡的最高等教育便遠是你的名分，這不取費的最珍貴的補劑便永遠供你的受用；只要你認識了這一部書，你在這世界上寂寞時便不寂寞，窮困
⑼ lua腳本讀入文本文件以及刪除第一行文本
f=io.open ("youfile.txt","r") --打開你的輸入文件 名稱為youfile.txt
f:read("*l") --讀取一行，但是不保存
s=f:read("*a") --讀取剩下的所有，保存到變數
f:close() --關閉文件
f=io.open(youfile.txt","w") --打開輸出文件youfile.txt
f:write(s) --將上面保存的剩下所有的內容寫入到輸出文件
f:close() --關閉
--這樣會損壞你的輸入文件，請自行備份
--這種方法不建議打開太大的文件（>10M) 速度會很慢。
⑽ vbs腳本讀文本內容作參數
測試成功 看代碼:
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt",1)'"a.txt"要改為其絕對路徑
do while file.atendofstream<>-1
str=str&file.readline&","
loop
path=split(str,",")
for i=0 to ubound(path) - 1
fso.file path(i),"f:\back\"
next