去掉TXT文件中固定字符
我有个程序跑出来的数据为:
1|RCVACT=6227003812940941111|RCVNAM=杨峰|TRSAMT=196.00|
1|RCVACT=6227003812940941111|RCVNAM=杨峰|TRSAMT=682.00|
1|RCVACT=6227003812940941111|RCVNAM=杨峰|TRSAMT=599.00|
1|RCVACT=6227003812940941111|RCVNAM=杨峰|TRSAMT=150.00|
如何得到:
1|6227003812940941111|杨峰|196.00|
1|6227003812940941111|杨峰|682.00|
1|6227003812940941111|杨峰|599.00|
1|6227003812940941111|杨峰|150.00|
我用;为标志,提取第20、23、25这三个字段,但用;的话出来是两个分号间的数据,如RCVACT=6227003812940941111,如何改程序才能实现去掉RCVACT=、RCVNAM=、TRSAMT=
我的原程序为:
Public Sub CMBDI2GC(StrSrcfile As String, StrDstFile As String)
Dim strComName As String
Dim StrBankName As String
Dim strnumberdi As String
Dim StrBankAcc As String
Dim strPolNum As String
Dim StrDat As String
Dim StrAmt As String
Dim StrRsn As String
Dim Strsub As String
Dim strmm As String
Dim ErrorRecNum As Integer
Dim CorrectRecNum As Integer
Dim TotalRecNum As Integer
Dim jiner As String
Dim Arr() As String
blerexist = False
Open StrSrcfile For Input As #1
Open StrDstFile For Output As #2
Do Until EOF(1)
Line Input #1, strline
Arr = Split(strline, ";")
strComName = "1"
StrBankName = Arr(20)
strnumberdi = Arr(23)
Strsub = Arr(25)
If Trim(strComName) = "" Then 'Or Trim(StrBankName) = "" Or Trim(StrBankAcc) = "" Or Trim(StrDat) = "" Or Trim(StrAmt) = "" Then
MsgBox ("源数据不正确,请检查后重新转换!")
Close #2
Close #1
GoTo loop2
End If
Print #2, strComName & "|" & StrBankName & "|" & strnumberdi & "|" & Strsub & "|"
Loop1: Loop
Print #2, Chr(26)
Close #2
Close #1
MsgBox "操作完毕"
loop2:
End Sub