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

关于字符串的问题

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

关于字符串的问题

发表于：2007-03-29 07:21:08 楼主

本人在写一小程序时
dim lstr,str1 as string
dim i,j as integer
lstr= "abcde#fghijk "
i=0
j=len（lstr)
do while i <j
if mid（lstr,i,1) <> "# " then
str1=str1+mid（lstr,i,1)
end if
i=i+1
loop
出现错误，请大伙帮帮忙，我是新手

发表于：2007-03-29 07:45:471楼得分:0

str1=replace（str1, "# ", " ")

发表于：2007-03-29 08:12:412楼得分:0

1. zyg0给出了最佳答案
2. 楼主的代码修改一下也行:
dim lstr as string, str1 as string
'注:dim lstr, str1 as sting等价于dim lst as variant, str1 as string, 存在问题
dim i as integer, j as integer
lstr= "abcde#fghijk "
str1= " "
i=1
j=len（lstr)
do while i <=j
if mid（lstr,i,1) <> "# " then
str1=str1+mid（lstr,i,1)
end if
i=i+1
loop

下一篇：在屏幕坐标中，已知圆心坐标，起点坐标，一个角度，求终点坐标
上一篇：字符串,我哪错了?

其他资讯