UC知道在字符串指定位置插入符号
来源：百度知道 编辑：UC知道 时间：2024/06/06 13:28:54
我从文本文件里面读出如下行（字符串）：
网点号 3 123，456.00 5 112，121.00USD
问题是这样的，字符串中数字、英文、汉字、符号混排，只能按照
固定宽度来分隔，空白处有空格也有Tab制表符。
在VB类语言中，汉字被当作1个符号被读取，造成截取长度混乱。
目标是，将空白处替换成逗号，在指定位置，如USD前插入逗号，将如123，456.00这样格式的数字放入双引号内，最后以便将整个处理完成
的文本文件另存为逗号分隔文件供Excel打开。
以上各位所说的Replace，可能是理解错意思了。
最简单的说吧。例如：abcd 大 efg ； 按照预先指定的固定位置，可能会要变为ab,cd 大 e,fg。不是仅仅把空格替换成逗号
如何实现？
网点号 3 123，456.00 5 112，121.00USD
问题是这样的，字符串中数字、英文、汉字、符号混排，只能按照
固定宽度来分隔，空白处有空格也有Tab制表符。
在VB类语言中，汉字被当作1个符号被读取，造成截取长度混乱。
目标是，将空白处替换成逗号，在指定位置，如USD前插入逗号，将如123，456.00这样格式的数字放入双引号内，最后以便将整个处理完成
的文本文件另存为逗号分隔文件供Excel打开。
以上各位所说的Replace，可能是理解错意思了。
最简单的说吧。例如：abcd 大 efg ； 按照预先指定的固定位置，可能会要变为ab,cd 大 e,fg。不是仅仅把空格替换成逗号
如何实现？
你的意思是不是
1、空格换为逗号
2、数字用双引号引起来
3、英文字符串前加逗号
不明白汉字你要怎么处理？你表达问题不清楚。
Dim data1() As String
data1 = Split(textstr, " ")
x = UBound(data1)
for i=0 to x
if IsNumeric(data1(i)) then data1(i)="""" & data1(i) & """"
s=s & data1(i) & ","
next
是的,我有现成的.
dim mystr as string
mystr=3 123，456.00 5 112，121.00USD
replace(mystr," ",",",1,-1,1)
说明1,-1,1),1从第一个字母开始查寻,-1全部查寻替换,1按文本方式.
这不难嘛，用replace嵌套
a=replace(<你的字符串>," ", ",")
a=replace(a,"USD",",USD")