社区
VB基础类
帖子详情
让几个空格变成一个空格?
Mybeautiful
2004-07-23 11:41:07
如:
aaaa bbbb cccc dddd eeee
变成:
aaaa bbbb cccc dddd eeee
另:
如何把 回车 变成 : 代替?
...全文
233
13
打赏
收藏
让几个空格变成一个空格?
如: aaaa bbbb cccc dddd eeee 变成: aaaa bbbb cccc dddd eeee 另: 如何把 回车 变成 : 代替?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
13 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Mybeautiful
2004-07-24
打赏
举报
回复
谢谢各位的热情相助!
do
text1=REPLACE(text1," "," ")
if instr(text1," ")=0 then exit do
loop
确实是启发思路啊,我都打算写一个复杂的字符串处理函数了..
再次谢谢各位!
starsoulxp
2004-07-23
打赏
举报
回复
//你这样写回车后光标回到开始的位置
//怎样让光标停在回车前的位置???
Text1.SelStart=Len(Text1.Text)
zcm123
2004-07-23
打赏
举报
回复
同意
jinesc(http://jinesc.com) ( xxxx) 的方把
do
text1=REPLACE(text1," "," ")
if instr(text1," ")=0 then exit do
loop
daisy8675
2004-07-23
打赏
举报
回复
你要停留在那里?就是留在:这边么?
jinesc
2004-07-23
打赏
举报
回复
do
text1=REPLACE(text1," "," ")
if instr(text1," ")=0 then exit do
loop
tiaozaodejia
2004-07-23
打赏
举报
回复
问: daisy8675(莫依)
你这样写回车后光标回到开始的位置
怎样让光标停在回车前的位置???
jinesc
2004-07-23
打赏
举报
回复
text1=REPLACE(text1,vbcrlf,":")
text1=REPLACE(text1," "," ")
daisy8675
2004-07-23
打赏
举报
回复
如何把 回车 变成 : 代替?
///
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Text1.Text & ":"
End If
End Sub
tiaozaodejia
2004-07-23
打赏
举报
回复
:)刚才没注意看!原来 starsoulxp(星魂) 已经回答了!
谢谢啦!
tiaozaodejia
2004-07-23
打赏
举报
回复
daisy8675(莫依)
你要停留在那里?就是留在:这边么?
对,就停在:后,可以接着输入内容。
该怎样写???
BlueBeer
2004-07-23
打赏
举报
回复
1,
ustr="aaaa bbbb cccc dddd eeee"
do while instr(ustr," ")
ustr=replace(x," "," ")
loop
2,
replace(vbcrlf,":")
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字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。
射天狼
2004-07-23
打赏
举报
回复
strTxt = Replace (strText, vbCrlf, ":") '替换回车!
Dim strTxt As String
strTxt = "aaaa bbbb cccc dddd eeee"
strTxt = Replace(strTxt, " ", " ")
strTxt = Replace(strTxt, " ", " ")
strTxt = Replace(strTxt, " ", " ")
strTxt = Replace(strTxt, " ", " ")
MsgBox strTxt
northwolves
2004-07-23
打赏
举报
回复
Dim x As String
x = "aaaa bbbb cccc dddd eeee"
Do While InStr(x, " ") > 0
x = Replace(x, " ", " ")
Loop
复制输入的字符串,将多个
空格
变成
一个
空格
【代码】复制输入的字符串,将多个
空格
变成
一个
空格
。
python
一个
tab键是
几个
空格
_python中tab键是什么意思
对于程序员来说,其实Tab和
空格
远远不只是“立场”问题那么简单。在不同的编辑器里tab的长度...这也就是说,当我们按下
一个
Tab的时候,即使它看起来就是8个
空格
(或者4个
空格
,不同的环境下,Tab可能显示的效果不同...
php 指定长度的
空格
,html utf-8 编码
空格
宽度 非两个
空格
=
一个
汉字
有个问题,就是
空格
和汉字的宽度问题,网上收集资料,如下:解决一:多打
几个
半角的
空格
,和汉字对应,资料如下一直以为是utf-8是宽字节的表示法,一般
一个
汉字是3个字节表示,所以utf-8的网页的
空格
是三个
空格
的...
抓取网页内容
空格
变成
?的解决办法
不然会
变成
?,虽然肉眼看见的是
空格
。 解决办法有以下几种: 1.因为????的ascii码是63,对应的二进制是111111,然后
空格
的ascii是32,对应的二进制是100000,先进行右移操作在+1得到byte,值为32,即
空格
的ascii...
(HTML)浏览器将多个
空格
压缩为
一个
空格
今天在做项目的时候,突然发现
一个
问题,浏览器输出的数据跟我原本的数据不一致,原本有多个
空格
,浏览器将多个
空格
压缩为
一个
。 代码示例 浏览器输出 控制台打印 我们明显可以看到,浏览器将多个
空格
合并...
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章