写入同一个TXT

[leonnet]

读取完TXT改格式，下面代码正常运行，现在需要加CBC和ABC的数据在同一个TXT中如何处理
关键是",102,00," 这里需要改一下

ICB 为",102,00,"
CBC 为",105,00,"
ABC 为",103,00,"

If ssText <> "" And MidX(strBank, 4, 3) = "ICB" Then
ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",102,00," & Trim(strAccount) & "," & Trim(rs.Fields("bankaccdsc")) & ",,,,0," & strAmount & ",,,,,,,,,,"
Else
ssText = Format(i, "000000") & "," & strPolNum & strduedate & ",102,00," & Trim(strAccount) & "," & Trim(rs.Fields("bankaccdsc")) & ",,,,0," & strAmount & ",,,,,,,,,,"
End If

[帝企鹅已被占用]

没看懂问题。

[孤独剑_LPZ]

描述的再清楚点,让人猜吗

[贝隆]

我也不懂楼主的意思

[嗷嗷叫的老马]

读入-------改---------写回

[qiangshou2301]

Public Declare Function GetPrivateProfileString Lib "kernel32"

Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public workdir As String
Public port As String
Public setting As String
Sub Main()
    
    If Right(App.Path, 1) = "/" Or Right(App.Path, 1) = "\" Then
        workdir = App.Path
    Else
        workdir = App.Path & "/"
    End If
    
    
    setting = String(255, " ")
    port = String(255, " ")
    
    GetPrivateProfileString "setting", "setting", "", setting, 255, workdir & "setting.ini"
    GetPrivateProfileString "setting", "port", "", port, 255, workdir & "setting.ini"
    
    setting = Replace(Trim(setting), Chr(0), "")
    port = Replace(Trim(port), Chr(0), "")

End Sub

[qiangshou2301]

这个是将串口号port读入setting.ini，还有其他的数据类似。

[jhone99]

If ssText <> "" And MidX(strBank, 4, 3) = "ICB" Then
    ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",102,00,"
ElseIf ssText <> "" And MidX(strBank, 4, 3) = "CBC" Then
    ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",105,00,"
ElseIf ssText <> "" And MidX(strBank, 4, 3) = "ABC" Then
    ssText = ssText & vbCrLf & Format(i, "000000") & "," & strPolNum & strduedate & ",103,00,"
Else
    ssText = Format(i, "000000") & "," & strPolNum & strduedate & ",102,00,"
End If