去掉TXT文件中固定字符

leonnet 2011-09-21 12:05:48
我有个程序跑出来的数据为:
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
...全文
136 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 leonnet 的回复:]
请详解,谢谢
[/Quote]
replace.
leonnet 2011-09-21
  • 打赏
  • 举报
回复
请详解,谢谢
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 yachong 的回复:]
感觉用split分隔等号就行,replace也可以
不过楼主怎么说也是快变星星的ID,应该不是这么简单吧
呵呵
[/Quote]
+1
yachong 2011-09-21
  • 打赏
  • 举报
回复
感觉用split分隔等号就行,replace也可以
不过楼主怎么说也是快变星星的ID,应该不是这么简单吧
呵呵
leonnet 2011-09-21
  • 打赏
  • 举报
回复
我晕,简直头晕了,原来这么简单....想多了
Print #2, strComName & "|" & Mid(StrBankName, 7) & "|" & Mid(strnumberdi, 7) & "|" & Mid(Strsub, 7) & "|"

7,757

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧