下午到公司加班配置双网卡suse防火墙,搞半天搞不出来,记得两年前自己用redhat做过,linux忘得差不多了,不过你给我的作业晚上加班做完了
由于女朋友在催我,就麻烦你在C:\FSO\下建个file.txt和file1.txt不然运行会出错
你的两个要求,分别写进file.txt和file1.txt里了,Scripting 贴上来给你看
Const ForReading = 1
Const ForWriting = 2
Dim oFSO,oF,i,strline,strnewText,strnewText1
'在C盘下建FSOfile,并把数组文件读进去,如果你想加东东,直接加数组里了
array1=array("111 bbb","222 aab","333 aaa","444 bbb","555 ccc","666 b")
ScriptPath="C:\FSO"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oF = oFSO.CreateTextFile(ScriptPath & "file.txt")
for i=0 to 5
oF.Writeline(array1(i)& vbCrLf)
next
oF.close
' 包含 "b"
Set objFile = oFSO.OpenTextFile(ScriptPath & "file.txt", ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
if instr(1,strline,"b",1)>0 then
strNewText = strnewtext&strLine & vbCrLF
end if
Loop
oF.close
Set objFile = oFSO.OpenTextFile("C:\FSo\file.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close
' 包含 "b"且两两显示不过最后的列子逻辑要稍微改下,但要走了,女朋友逼的紧啊
Set objFile = oFSO.OpenTextFile("C:\FSo\file.txt", ForReading)
Do Until objFile.AtEndOfStream
strLine=objFile.ReadLine
strline=replace(strline," ",",")
strNewText1 = strnewtext1&strLine & ","
loop
MyArray=split(strNewText1,",",-1,1)
oF.close
Set objFile = oFSO.OpenTextFile("C:\FSo\file1.txt", ForWriting)
For i = 1 to Ubound(myArray)/2
objFile.WriteLine myArray(2*i-1)
Next
objFile.Close
