您的位置：程序门 -> vb -> 基础类

vb字符替换的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb字符替换的问题[已结贴,结贴人:luj107]

发表于：2007-09-26 15:39:46 楼主

正在做一个文本文件转换的vb小程序，现在在做字符转换的时候,出现了一些疑问,比如我有这样的一组字符串 "+3000-4000 ",
现在我要将它转换为 "x30.00y-40.00 "
请问哪位高手知道应该怎么做啊?

发表于：2007-09-26 16:22:411楼得分:0

如果原始串都是固定长度（10,前5位是x,后5位是y)，那就简单了

fuction transstring（byval strold as string) as string
transstring= "x " & mid$（strold,1,3) & ". " & mid$（strold,4,2) & "y " & mid$（strold,6,3) & ". " & mid$（strold,9,2)
transstring=replace（transstring, "+ ", " ")
end function

发表于：2007-09-26 16:44:492楼得分:20

dim i as integer,j as integer
dim mystring as string,str as string,s as string,signx as string,signy as string
str= "+3000-4000 " '转换为 "x30.00y-40.00 "格式的数据
for i=1 to len（str)
s=mid（str,i,1)
if i=1 then
signx=s
mystring=signx
else
if isnumeric（s) then
mystring=mystring & s
else
j=i
mystring= "x "& trim（str（val（mystring)/100)) & ":00y "
mystring=mystring & trim（str（val（mid（str,j,len（str)-j-)/100))) & ":00 "
exit for
end if
endif
next
debug.print mystring

发表于：2007-09-26 16:50:093楼得分:0

上面的len（str)-j-改为：len（str)-j-1

发表于：2007-09-27 07:52:444楼得分:0

谢谢,我先试试啊

其他资讯