社区
VB基础类
帖子详情
让几个空格变成一个空格?
Mybeautiful
2004-07-23 11:41:07
如:
aaaa bbbb cccc dddd eeee
变成:
aaaa bbbb cccc dddd eeee
另:
如何把 回车 变成 : 代替?
...全文
236
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
spring-boot-2.3.0.RC1.jar中文-英文对照文档.zip
1、压缩文件中包含: 中文-英文对照文档、jar包下载地址、Maven依赖、Gradle依赖、源代码下载地址。 2、使用方法: 解压最外层zip,再解压其中的zip包,双击 【index.html】 文件,即可用浏览器打开、进行查看。 3、特殊说明: (1)本文档为人性化翻译,精心制作,请放心使用; (2)只翻译了该翻译的内容,如:注释、说明、描述、用法讲解 等; (3)不该翻译的内容保持原样,如:类名、方法名、包名、类型、关键字、代码 等。 4、温馨提示: (1)为了防止解压后路径太长导致浏览器无法打开,推荐在解压时选择“解压到当前文件夹”(放心,自带文件夹,文件不会散落一地); (2)有时,一套Java组件会有多个jar,所以在下载前,请仔细阅读本篇描述,以确保这就是你需要的文件。 5、本文件关键字: jar中文-英文对照文档.zip,java,jar包,Maven,第三方jar包,组件,开源组件,第三方组件,Gradle,中文API文档,手册,开发手册,使用手册,参考手册。
presto-jdbc-0.238.1.jar中文文档.zip
1、压缩文件中包含: 中文文档、jar包下载地址、Maven依赖、Gradle依赖、源代码下载地址。 2、使用方法: 解压最外层zip,再解压其中的zip包,双击 【index.html】 文件,即可用浏览器打开、进行查看。 3、特殊说明: (1)本文档为人性化翻译,精心制作,请放心使用; (2)只翻译了该翻译的内容,如:注释、说明、描述、用法讲解 等; (3)不该翻译的内容保持原样,如:类名、方法名、包名、类型、关键字、代码 等。 4、温馨提示: (1)为了防止解压后路径太长导致浏览器无法打开,推荐在解压时选择“解压到当前文件夹”(放心,自带文件夹,文件不会散落一地); (2)有时,一套Java组件会有多个jar,所以在下载前,请仔细阅读本篇描述,以确保这就是你需要的文件。 5、本文件关键字: jar中文文档.zip,java,jar包,Maven,第三方jar包,组件,开源组件,第三方组件,Gradle,中文API文档,手册,开发手册,使用手册,参考手册。
Linux_SID_开发指南.pdf
Linux_SID_开发指南
基于 python 3.7 + django 2.2.3 + 运维devops管理系统
基于 python 3.7 + django 2.2.3 + channels 2.2.0 + celery 4.3.0 + ansible 2.8.5 + AdminLTE-3.0.0 实现的运维devops管理系统。
拉格朗日插值法处理缺失数据
资源下载链接为: https://pan.quark.cn/s/abbae039bf2a 拉格朗日插值法是一种数学方法,能够在给定的若干个不同位置的观测值时,找到
一个
多项式,使得该多项式在这些观测点上恰好取到相应的观测值。这种多项式被称为拉格朗日(插值)多项式。从数学的角度来看,拉格朗日插值法可以构建
一个
多项式函数,使其精确地穿过二维平面上的若干个已知点。本文将介绍如何利用拉格朗日插值法来填补缺失值。为了更好地理解这一方法,我们先通过一组简单的数据来展示拉格朗日插值法的实现过程。以下是实现拉格朗日插值法的代码示例:
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章