chr(10) 为什么做不到换行？？？？

wangchong 2001-12-03 03:44:48

我这样写的：
Dim Old_mge As String
Old_mge = Trim(text1.text)
If old_mge <> "" Then
Old_mge = Old_mge & Chr(10) & "---end---"
Else
Old_mge = Trim(text1.text)
End If
text1.text = Old_mge
为什么在 "---end---"前没换行呢？？？

...全文

225 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

wangchong 2001-12-03

打赏
举报

回复

谢谢各位：
可惜我的分太少了，记住我，下次多给！！！

shkingstargroup 2001-12-03

打赏
举报

回复

Dim Old_mge As String
Old_mge = Trim(text1.text)
If old_mge <> "" Then
Old_mge = Old_mge & Chr(13) & Chr(10) & "---end---" '注意这儿！
Else
Old_mge = Trim(text1.text)
End If
text1.text = Old_mge

还有把Text1.MultiLine属性设置成TRUE

shkingstargroup 2001-12-03

打赏
举报

回复

Dim Old_mge As String
Old_mge = Trim(text1.text)
If old_mge <> "" Then
Old_mge = Old_mge & Chr(13) & Chr(10) & "---end---" '这儿要注意了！
Else
Old_mge = Trim(text1.text)
End If
text1.text = Old_mge

还有要注意的是text1.MultiLine的属性设置成true值就行！

foolishtiger 2001-12-03

打赏
举报

回复

Old_mge = Old_mge & vbCrLf & "---end---"

foxruo 2001-12-03

打赏
举报

回复

同上

mmzxg 2001-12-03

打赏
举报

回复

chr(10)& chr(13)

enmity 2001-12-03

打赏
举报

回复

chr(10) & chr(13)

Chr("1") 到Chr("132") 得意思，比如Chr("13")是“回车”的意思

lotus domino 开发资料换行符号

'调用过程 Sub 使用() Dim 行, 列 '下面程序是转换第2行第5列到第2行第800列 '由于行一直在增加,所以实际并不会转换到原数据的800列行 = 2 列 = 5 For 行 = 2 To 800 Step 1 Call 换行单元格转真实行(Cells(行, 列)) Next End Sub '过程 Sub 换行单元格转真实行(rng As Range) 'Dim rng As Range '处理的单元格 Dim str As String '消掉处理的单元格中所有换行符的文本 Dim i '处理的换行符个数 = 原单元格字符个数 - 处理后单元格字符个数 ( i 结果是多少这个单元格就有 i+1 行) Dim 行数 '处理单元格里面有多少行 Dim rngcol rngcol = rng.Column '处理单元格在第几列 Dim rngstr As String rngstr = rng.Value '处理单元格的内容 str = Application.WorksheetFunction.Substitute(rngstr, "" & Chr(10) & "", "") i = VBA.Len(rng) - VBA.Len(str) '得到单元格里面一共多少个换行符从而得到行数为i+1 If i > 0 Then '如果有换行符的话行数 = i + 1 '得到行数 For i = 行数 To 2 Step -1 '有多少行循环多少次 Rows(rng.Row + 1).Insert '先在处理的单元格下面插入一行 Cells(rng.Row + 1, rngcol) = Split(rngstr, "" & Chr(10) & "")(i - 1) '然后把最后一行内容给写进去,倒数第二行内容写进去…………第二行写进去 Next Cells(rng.Row, rngcol) = Split(rngstr, "" & Chr(10) & "")(0) '然后把第一行内容写到原位置 End If 'Split(字符串, 分隔符)(第几个) End Sub

运用独到的方法，学到真正的知识。让学习成为进步和成功的台阶！

总结了一些关于C#的转义字符和大家分享，该文件描述的是C#语言，关于一些转义字符的用法

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章