重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
错了,是vbCrLf Chr(13) + Chr(10)
专注于为中小企业提供网站制作、做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业呼中免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
共两个字符。
#10是换行符
#13是回车符
有了回车符,代表了一行的结束,也方便于读取文本。
不要只打一个,vbCrLf简单方便,也是一个良好的习惯。
呵呵给你个好玩的思路..别人的程序都用了循环,如果字符串很大,或是最右边的换行符超多,可能循环次数就会比较多,我的不管有多长,只要5下就清空,代码如下:
Dim
a$
a
=
"a
a"
vbCrLf
"bb"
vbCrLf
"fdas"
vbCrLf
vbCrLf
vbCrLf
a
=
Replace(a,
"
",
"vb妮可")
a
=
Replace(a,
vbCrLf,
"
")
a
=
RTrim(a)
a
=
Replace(a,
"
",
vbCrLf)
a
=
Replace(a,
"vb妮可",
"
")
我的思路就是:
1.将原串中的空格都先替换成奇怪的短串,这样你的字符串中就没有空格了.
2.然后将所有的换行符都换成空格.
3.VB有一个删除右边空格的函数RTrim,可以把右边的空格都清除
4.没有删除的空格就是符合你要求的换行了,再替换回换行符
5.将奇怪的短串还原成空格
完成.
在vb里面,当一行的代码过长时可以将该语句折断,规则是,空格+下划线
例如,aaaabbbb
要在ab中间折断,
aaaa
_'空格然然加下划线,再换行,也就是按enter
bbbb
要是想让自己写的文字显示换行,可以在文件中间加ch(13),可实现此功能。
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假设你的文本文件叫1.txt,在C盘
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的数放在变量b里面,没有换行的.只有数字. 不知道你是这个意思吧
End Sub