社区
VB基础类
帖子详情
让几个空格变成一个空格?
Mybeautiful
2004-07-23 11:41:07
如:
aaaa bbbb cccc dddd eeee
变成:
aaaa bbbb cccc dddd eeee
另:
如何把 回车 变成 : 代替?
...全文
209
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
JS正则替换去
空格
的方法
本文实例讲述了JS正则替换去
空格
的方法。分享给大家供大家参考,具体如下: 在网上找了好久,发现没
几个
是好用的。自己备份
一个
省得以后再找。 //去左
空格
; function ltrim(s){ return s.replace( /^/s*/, ""); } //去右
空格
; function rtrim(s){ return s.replace( //s*$/, ""); } //左右
空格
; function trim(s){ return rtrim(ltrim(s)); } 如果是去掉半角和全角
空格
就把 /s 替换成 [” “|” ”] 就
变成
//去左
空格
; func
python
一个
tab键是
几个
空格
_python中tab键是什么意思
对于程序员来说,其实Tab和
空格
远远不只是“立场”问题那么简单。在不同的编辑器里tab的长度可能不一致,所以在
一个
编辑器里用tab设置缩进后,在其它编辑器里看可能缩进就乱了。
空格
不会出现这个问题,因为
空格
就占
一个
字符的位置。众所周知,Tab在ASCII码中,编码是9,而
空格
是32。这也就是说,当我们按下
一个
Tab的时候,即使它看起来就是8个
空格
(或者4个
空格
,不同的环境下,Tab可能显示的效果不同...
PowerBI系列之Power Query专题
PowerBI系列之Power Query专题1. 获取数据 数据源种类介绍和获取Excel数据源输入数据和拷贝数据:创建辅助表解析Json/XML数据格式获取Web网页数据和URL添加动态参数连接数据的四种模式:Import、DirectQuery、Live Connection、Dual双 属于混合模式连接数据库:Sql server、 Mysql(直连但是必须先安装
一个
mysql插件)DirectQuery直连查询:Sql serverODBC方式获取数据表关联或多个Sql或调用存储过程获取数据SQL中动态传参和自定义函数: sql中使用参数或数据库名称使用参数连接Sharepoint和OneDrive数据源连接Dataset和Dataflow 替换本地数据源为Sharepoint数据源并保留数据处理操作 终止当前数据刷新Loading:Cancel Query数据源设置-重置数据连接凭证PBIDS连接数据源创建和使用报表模块(输入或值列表)利用报表模板和参数控制线下报表数据权限DirectQuery启用自动页面刷新和更改检测管理聚合表提高DirectQuery查询性能动态M查询参数提高DirectQuery查询性能添加数据刷新时间 DateTime.LocalNow()和Getdate()2. 数据清洗和M语言M语言和官方文档介绍PowerQuery中查阅M函数:=#shared, Ctrl+Space提示数据清洗之常用技能:提升标题、更改数据类型、保留删除错误或空行,删除重复项、选择列和删除列、填充单元格、合并列、拆分、提取、替换、条件替换、添加自定义列,添加条件列、添加索引列、分组、添加年月日列、追加和合并查询透视和逆透视以及转置合并单元格的Excel文件处理导入文件夹中多Excel文件并合并解决多文件合并中列顺序不一致使用参数和函数批量导入文件 文本中提取中文、英文、数字等处理双引号转义 列拆分详解解决列名改变错误解决列丢失错误动态显示、排序和重命名列为所有列名添加前缀列名字母大写和分隔符调整Trim标题列中的多余
空格
如何处理load数据错误为什么load的Excel数据有null空行为什么load的Excel数据标题在第二行灵活添加占位符规范同类相似数据数据按多列排序为分组添加Index序号分组内值合并诊断工具分析数据处理过程PowerQuery小技巧分享 新冠病例活动轨迹地图标识
(HTML)浏览器将多个
空格
压缩为
一个
空格
前言 今天在做项目的时候,突然发现
一个
问题,浏览器输出的数据跟我原本的数据不一致,原本有多个
空格
,浏览器将多个
空格
压缩为
一个
。 代码示例 浏览器输出 控制台打印 我们明显可以看到,浏览器将多个
空格
合并为
一个
空格
了。 这是因为我们在编写HTML的时候,会有
一个
默认属性:white-space:normal; white-space:normal;在CSS中表示,合并空白字符,允许自动换行。 同样的white-space还有其他
几个
属性: nowrap:表示合并空白字符,不允...
抓取网页内容
空格
变成
?的解决办法
网页里面的
空格
是 转义过的。 抓下来出现了乱码"????",所以要单独对 处理。不然会
变成
?,虽然肉眼看见的是
空格
。 解决办法有以下几种: 1.因为????的ascii码是63,对应的二进制是111111,然后
空格
的ascii是32,对应的二进制是100000,先进行右移操作在+1得到byte,值为32,即
空格
的ascii码, 然...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章