fso.vbs

将fortran77转变成fortran90的vb脚本源代码

'替换文本字符，每行第一个是c的话替换成!
'文件名设置
filename="1.txt"

'-----------------------------------
Dim fso,f,strs(),count,i
Set fso = CreateObject("Scripting.FileSystemObject")

'读取文件行数
Set f=fso.OpenTextFile(filename,1) 
count=0
Do Until f.AtEndofStream
  f.ReadLine  
  count=count+1
Loop
f.Close
'-----------------------------------
redim strs(count)
'读文件
Set f=fso.OpenTextFile(filename,1) 
i=1
For i=1 To count
  strs(i)=f.ReadLine
  If Left(strs(i),1)="c" Then
    strs(i)="!"&Right(strs(i),Len(strs(i))-1)    
  End if  
next
f.Close

'写文件
Set f=fso.OpenTextFile(filename,2) 
i=1
For i=1 To count
  f.WriteLine(strs(i))  
next
f.Close