按行读入到字符串中,用input
以逗号为分隔符进行分隔,用split
用子字符串操作去掉双引号,用left、right、mid等
For i = LBound(m) To UBound(m)
If Left(m(i), 1) = Chr(34) And Right(m(i), 1) = Chr(34) Then
m(i) = Mid(m(i), 2, Len(m(i)) - 2)
End If
fs = CStr(Abs(m(i)))
MSComm1.Output = fs