有关字符串问题! 给定一个字符串,字符串中有很多空格,空格位置不固定,请问各位能通过什么方法将字符串中得所有空格去掉,得到一个新的字符串啊! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '使用Replace函数,将strTmp中的空格用空字符串替换:strTmp=Replace(strTmp, " ", "")————————————————————————————————————— Replace函数 描述返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,并且替换发生的次数也是指定的。语法Replace(expression, find, replacewith[, start[, count[, compare]]])Replace函数语法有如下几部分:部分 描述 expression 必需的。字符串表达式,包含要替换的子字符串。 find 必需的。要搜索到的子字符串。 replacewith 必需的。用来替换的子字符串。 start 可选的。在表达式中子字符串搜索的开始位置。如果忽略,假定从1开始。 count 可选的。子字符串进行替换的次数。如果忽略,缺省值是 –1,它表明进行所有可能的替换。 compare 可选的。数字值,表示判别子字符串时所用的比较方式。关于其值,请参阅“设置值”部分。 设置值compare参数的设置值如下:常数 值 描述 vbUseCompareOption –1 使用Option Compare语句的设置值来执行比较。 vbBinaryCompare 0 执行二进制比较。 vbTextCompare 1 执行文字比较。 vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。 返回值Replace的返回值如下:如果 Replace返回值 expression长度为零 零长度字符串("")。 expression为Null 一个错误。 find长度为零 expression的复本。 replacewith长度为零 expression的复本,其中删除了所有出现的find 的字符串。 start > Len(expression) 长度为零的字符串。 count is 0 expression.的复本。 说明Replace函数的返回值是一个字符串,但是,其中从start所指定的位置开始,到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。 result=Replace("safd fdajsf fasf ","") 楼上的不对,trim()是去掉头尾空格的,用replace() i=instr(1,str," ")while i>0 str=replace(str," ","") i=instr(1,str," ")wend 32位下正常,为毛64位的不行了呢 从一段文字中分析提取手机等信息 请教各位老师,listbox的column怎么使用? VB調用水晶報表文件 如何自动关闭用common dialog控件弹出的保存或打开文件窗口 刚装的VB 报:内存不不能为"read"错。如何解决 BM_CLICK = &HF5 象这些常量去哪找啊?! 怎么样算"1+2*3/4"的值 好心人帮下很小的忙哦!不好意思,没分了。 救救我,请教算法 帮帮忙了 如何将字符串形式的公式算出来,高手请进吧
strTmp=Replace(strTmp, " ", "")—————————————————————————————————————
Replace函数
描述返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,并且替换发生的次数也是指定的。语法Replace(expression, find, replacewith[, start[, count[, compare]]])Replace函数语法有如下几部分:部分 描述
expression 必需的。字符串表达式,包含要替换的子字符串。
find 必需的。要搜索到的子字符串。
replacewith 必需的。用来替换的子字符串。
start 可选的。在表达式中子字符串搜索的开始位置。如果忽略,假定从1开始。
count 可选的。子字符串进行替换的次数。如果忽略,缺省值是 –1,它表明进行所有可能的替换。
compare 可选的。数字值,表示判别子字符串时所用的比较方式。关于其值,请参阅“设置值”部分。
设置值compare参数的设置值如下:常数 值 描述
vbUseCompareOption –1 使用Option Compare语句的设置值来执行比较。
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文字比较。
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。
返回值Replace的返回值如下:如果 Replace返回值
expression长度为零 零长度字符串("")。
expression为Null 一个错误。
find长度为零 expression的复本。
replacewith长度为零 expression的复本,其中删除了所有出现的find 的字符串。
start > Len(expression) 长度为零的字符串。
count is 0 expression.的复本。
说明Replace函数的返回值是一个字符串,但是,其中从start所指定的位置开始,到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。
while i>0
str=replace(str," ","")
i=instr(1,str," ")
wend