中国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 上面是VBS脚本程序，下面是我改的VB程序，调试时，老出错，请大家指点帮忙。谢谢 Dim fso, f1, f2, f3, f4, regex, arr Dim str, num1, num2, num3, fn1, fn2, fn3, fn4, fn5, fn6 Private Sub Command1_Click() CommonDialog1.Filter = "LOC文件(*.loc)|*.loc|所有文件(*.*)|*.*" CommonDialog1.ShowOpen fn1 = CommonDialog1.FileName Text1.Text = fn1 ''读取数据源文件用fn1文件 End Sub Private Sub Command2_Click() CommonDialog1.Filter = "CSV文件(*.csv)|*.csv|文本文件(*.txt)|txt|所有文件(*.*)|*.*" CommonDialog1.ShowSave fn6 = CommonDialog1.FileName Text2.Text = fn6 ''输出数据文件fn6文件 End Sub Private Sub Command3_Click() Set fso = CreateObject("scripting.filesystemobject") Set f6 = fso.createtextfile(fn2, True) f6.writeline "Log,Distance,4Hz,4Hz,,Depth" f6.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 f6.writeline arr(1)&","&","&num1&","&round(num2,2)&","&num3&"," End If End If Loop f6.Close f1.Close MsgBox "数据转换OK" Set f1 = Nothing Set f6 = Nothing Set regex = Nothing Set fso = Nothing End Sub Private Sub exitfile_Click() Unload Me End End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Set regex = New RegExp End Sub Private Sub openfile_Click() CommonDialog1.Filter = "LOC文件(*.loc)|*.loc|所有文件(*.*)|*.*" CommonDialog1.ShowOpen fn1 = CommonDialog1.FileName Text1.Text = fn1 ''读取数据源文件用fn1文件 End Sub Private Sub Option1_Click() regex.Pattern = "^ELF" regex.IgnoreCase = True End Sub Private Sub Text1_Change() Text1.Text = fn1 End Sub 这是我写的VB程序，请大家帮忙看看哪里不对！！！ 非常感谢！

请问楼主需要转换的原因，或许从这个问题上可以帮助你解决。

以前用脚本是因为,给自己方便工作,现在转是因为想做的更正规一点.

现在我改成这样,但是怎么Private Sub Command3_Click()子程序出现不了结果了,不知是什么原因,请大家给帮助看看,哪里出错了. Dim fso, f1, f2, f3, f4, regex, arr Dim str, fn1, fn2, fn3, fn4, fn5, fn6 Private Sub Command1_Click() CommonDialog1.Filter = "LOC文件(*.loc)|*.loc|所有文件(*.*)|*.*" CommonDialog1.ShowOpen fn1 = CommonDialog1.FileName Text1.Text = fn1 End Sub Private Sub Command2_Click() CommonDialog1.Filter = "CSV文件(*.csv)|*.csv|文本文件(*.txt)|txt|所有文件(*.*)|*.*" CommonDialog1.ShowSave fn6 = CommonDialog1.FileName Text2.Text = fn6 End Sub Private Sub Command3_Click() Set fso = CreateObject("scripting.filesystemobject") Set f6 = fso.createtextfile(fn6, True) f6.writeline "Log,Distance,4Hz,4Hz,,Depth" f6.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 f6.writeline arr(1), , num1, Round(num2, 2), , num3 End If End If Loop f6.Close f1.Close MsgBox "数据转换OK" Set f1 = Nothing Set f6 = Nothing Set regex = Nothing Set fso = Nothing End Sub Private Sub exitfile_Click() Unload Me End End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Set regex = New RegExp End Sub Private Sub openfile_Click() CommonDialog1.Filter = "LOC文件(*.loc)|*.loc|所有文件(*.*)|*.*" CommonDialog1.ShowOpen fn1 = CommonDialog1.FileName Text1.Text = fn1 End Sub Private Sub Option1_Click() regex.Pattern = "^ELF" regex.IgnoreCase = True End Sub Private Sub Text1_Change() Text1.Text = fn1 End Sub

对了,现在总是提示f6.writeline arr(1), , num1, Round(num2, 2), , num3这个出错,不知,在VB中这个程序该如可修改, 在VBS中这行是这样的f2.writeline arr(1)&","&","&num1&","&round(num2,2)&","&num3&"," 我在VB中改为了f6.writeline arr(1), , num1, Round(num2, 2), , num3 在VB中writeline 的表示和VBS中有什么区别?