社区
VB基础类
帖子详情
让几个空格变成一个空格?
Mybeautiful
2004-07-23 11:41:07
如:
aaaa bbbb cccc dddd eeee
变成:
aaaa bbbb cccc dddd eeee
另:
如何把 回车 变成 : 代替?
...全文
208
13
打赏
收藏
让几个空格变成一个空格?
如: aaaa bbbb cccc dddd eeee 变成: aaaa bbbb cccc dddd eeee 另: 如何把 回车 变成 : 代替?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
(HTML)浏览器将多个
空格
压缩为
一个
空格
前言 今天在做项目的时候,突然发现
一个
问题,浏览器输出的数据跟我原本的数据不一致,原本有多个
空格
,浏览器将多个
空格
压缩为
一个
。 代码示例 浏览器输出 控制台打印 我们明显可以看到,浏览器将多个
空格
合并为
一个
空格
了。 这是因为我们在编写HTML的时候,会有
一个
默认属性:white-space:normal; white-space:normal;在CSS中表示,合并空白字符,允许自动换行。 同样的white-space还有其他
几个
属性: nowrap:表示合并空白字符,不允...
抓取网页内容
空格
变成
?的解决办法
网页里面的
空格
是 转义过的。 抓下来出现了乱码"????",所以要单独对 处理。不然会
变成
?,虽然肉眼看见的是
空格
。 解决办法有以下几种: 1.因为????的ascii码是63,对应的二进制是111111,然后
空格
的ascii是32,对应的二进制是100000,先进行右移操作在+1得到byte,值为32,即
空格
的ascii码, 然...
mysql传入多个
空格
被自动解析成
一个
空格
的解决办法
这两天遇到
一个
需求,mysql需要拼接两个值,但是中间需要用多个
空格
隔开,如下 concat_ws(' ', a.USERNAME,c.GROUPNAME) AS GROUPNAME, 这句话在直接执行sql时是没问题的,但是利用mybatis传出mysql时会出现所有
空格
会解析成
一个
空格
的问题。 解决办法 concat_ws(' ', a.USERNAME,c.GR...
Vue / Html 等前台中连续多个
空格
只显示
一个
空格
的解决方法
Vue / Html 等前台中连续多个
空格
只显示
一个
空格
的解决方法. white-space的简单介绍。
vscode缩进设置了4个
空格
,有时又
变成
2个
空格
了
其实我不是很喜欢去研究编辑器配置的,但是最近感觉一直有个问题困扰我,就是打开的项目,我编辑的时候明明修改了底部
空格
为4,但是后面再打开有时候又
变成
了2个
空格
,而且影响原来的代码排版 image 也就是当我编辑文件的时候,我不喜欢2个
空格
的缩进,就改成了4个
空格
,但有时候打开编辑这个文件的时候它神奇的变回了原来的2个
空格
缩进,再经过一系列调整后回到4个
空格
了,偶尔的时候又发现变回2个
空格
了...
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章