以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么判断行数？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122146)
--  作者：YDS
--  发布时间：2018/7/19 19:30:00
--  [求助]怎么判断行数？
怎么判断出一个窗口中的的TextBox控件中输入的行数？
--  作者：YDS
--  发布时间：2018/7/19 19:43:00
--  
dim str as string = vars("内容")
Dim Values() as String
Values = str.Split( vbCrLf)
dim i As Integer = Values.Length


这样出来的i为什么不对？
--  作者：有点甜
--  发布时间：2018/7/19 19:52:00
--  
vars("内容") = "123" & vbcrlf & "abc"
Dim str As String = vars("内容")
Dim Values() As String
Values = str.replace(chr(10), "").Split(chr(13))
Dim i As Integer = Values.Length
msgbox(i)
--  作者：YDS
--  发布时间：2018/7/19 20:40:00
--  
为什么要先把换行符替换掉呢？
--  作者：有点甜
--  发布时间：2018/7/19 20:45:00
--  
以下是引用YDS在2018/7/19 20:40:00的发言：
为什么要先把换行符替换掉呢？

 

换行符号是 chr(13)加chr(10)，如果根据chr(13)分割，会有多余字符。

 

但是这个问题和你的问题应该无关。你做个实例发上来测试吧。
--  作者：YDS
--  发布时间：2018/7/19 20:50:00
--  
ok    谢谢了