在vb里面,当一行的代码过长时可以将该语句折断,规则是,空格+下划线
公司主营业务:网站建设、网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出武邑免费做网站回馈大家。
例如,aaaabbbb
要在ab中间折断,
aaaa
_'空格然然加下划线,再换行,也就是按enter
bbbb
要是想让自己写的文字显示换行,可以在文件中间加ch(13),可实现此功能。
在要换行的地方断开字符串,用 Environment.NewLine 连接两个字符串即可。
这是VB在读多行文件时出现的问题,最后行多了换行字符。
可以用Left 函数来取去除最后换行字符的文本。
Left 函数
返回 Variant
(String),其中包含字符串中从左边算起指定数量的字符。
Len 函数
返回 Long,其中包含字符串内字符的数目。
Option Explicit
Dim s As String
Dim i As Long
Dim fname As String
Dim strWj As String
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, s
strWj = strWj s vbCrLf
i = i + 1
Loop
Text3 = i
Close #1
Text1 = Left(strWj, Len(strWj) - 2) '去除读入文本多余的换行符。
Debug.Print Len(strWj)
Debug.Print Len(Text1)
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
错了,是vbCrLf Chr(13) + Chr(10)
共两个字符。
#10是换行符
#13是回车符
有了回车符,代表了一行的结束,也方便于读取文本。
不要只打一个,vbCrLf简单方便,也是一个良好的习惯。
Dim MultiString as String‘有许多行的字符串Dim StrArray() as String'字符串类型的一维数组StrArray=Split(MultiString,VbCrlf)'用换行符分割字符串