标题: 求助,帮忙解决writeline问题 [打印本页]

---

作者: beyond125     时间: 2008-7-8 15:11    标题: 求助,帮忙解决writeline问题

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语言如何写！！！