数据转换的问题

leonnet 2010-12-08 05:04:12
RCVACT=6227003818520406021 ;RCVNAM=李理 ;TRSAMT=1000.00 ;
RCVACT=6227003818520406254 ;RCVNAM=王先决;TRSAMT=96.00 ;
RCVACT=5240943810102533 ;RCVNAM=张一鸣;TRSAMT=8564.25 ;

我用这样得到数据
StrBankName = Arr(0)
strnumberdi = Arr(1)
Strsub = Arr(2)

但想出来的数据为:
6227003818520406021|李理|1000.00|
6227003818520406254|王先决|96.00|
5240943810102533|张一鸣|8564.25|

如何去掉其中的多余的部分。谢谢
...全文
59 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
熊孩子开学喽 2010-12-08
  • 打赏
  • 举报
回复
漏了点东西.动态数组申明应该写成:
DIM ARR() AS STRING '前面漏写了类型
dbcontrols 2010-12-08
  • 打赏
  • 举报
回复
a = "RCVACT=6227003818520406021 ;RCVNAM=李理 ;TRSAMT=1000.00 ;"
a = Replace(a, "RCVACT=", "")
a = Replace(a, " ;RCVNAM=", "|")
a = Replace(a, " ;TRSAMT=", "|")
a = Replace(a, " ;", "|")
熊孩子开学喽 2010-12-08
  • 打赏
  • 举报
回复
举个例子给你看:
假设:
DIM STR AS STRING
DIM ARR()
STR="RCVACT=6227003818520406021 ;RCVNAM=李理 ;TRSAMT=1000.00 ;"
STR=REPLACE(STR," ","") '先把多余空格去掉
ARR=SPLIT(STR,";") '再按照分号分割字符串,分割结果保存到动态数组ARR

这时ARR一共有4个元素:
ARR(0)="RCVACT=6227003818520406021"
ARR(1)="RCVNAM=李理"
ARR(2)="TRSAMT=1000.00"
ARR(3)="" '最后一个元素为空字符, 因为你原来的字符串是以分号结尾的, 分号右面没有内容

以此类推,你可以将其他几个字符串也同样分割到其他动态数组中去.

7,763

社区成员

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

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