中国DOS联盟

dim fso, f1, f2, regex, arr

dim str, num1, num2, num3, fn1, fn2

fn1=inputbox("请输入提取文件名","信息","1.loc")

fn2=inputbox("请输入生成文件名","信息","1.csv")

set regex=new regexp

regex.pattern="^"&inputbox("请输入包含字符的行","信息","ELCD")

regex.ignorecase=true



set fso=createobject("scripting.filesystemobject")

set f2=fso.createtextfile(fn2,true)

f2.writeline "Log"&","&"Distance"&","&"4Hz"&","&"4Hz"&","&"Depth"

f2.writeline "#"&","&"(m)"&","&"(mA)"&","&"(dBmA)"&","&"(cm)"

set f1=fso.opentextfile(fn1,1)

do while f1.atendofstream<>true

  str=f1.readline

  if regex.test(str) then

     arr=split(str,",")

     if arr(4)>0 then

       num1=arr(4)*1000

       num2=log(num1)/log(10)*20

       num3=arr(2)*100

       f2.writeline arr(1)&","&","&num1&","&round(num2,2)&","&num3&","

     end if

  end if

loop

f2.close

f1.close

msgbox "OK"

set f1=nothing

set f2=nothing

set regex=nothing

set fso=nothing