大虾看过来,这种问题该如何解决?

Question

读入文本,换行符切为数组.遍历这个数据,然后把每一个元素按|切为数组.即可...然后对数组操作...
比较麻烦..简单的办法.读入整个文本,然后用正则表达式替换.

Answer 1

今天不是问过这个问题了吗？

Answer 2

Dim str:str="16|sdf|sdfsdfsdf|fox|2005-4-7||"
Dim ssr:ssr="|" & left(str,len(str)-1)
'//ssr="|16|sdf|sdfsdfsdf|fox|2005-4-7|"
'//替换2005-4-7为2005-4-8:
ssr=Replace(ssr,"|2005-4-7|","|2005-4-8|")
'//ssr="|16|sdf|sdfsdfsdf|fox|2005-4-8|"
'//未尾插入数据
ssr=srr & "要插入的数据"
'//ssr="|16|sdf|sdfsdfsdf|fox|2005-4-8|要插入的数据"
'//删除数据
ssr=Replace(ssr,"|sdf|","|")如果只是在未尾 "||" 间插入一个数据
str=left(str,len(str)-1) & "要插入的数据" & "|"