首先找到第五行,就是找vbcrlf,然后找第三个数,就是找逗号
成都创新互联公司是专业的麻城网站建设公司,麻城接单;提供网站制作、做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行麻城网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
有两种办法,一种是纯字符串处理的办法,另一种是使用数组的办法,两种方法都很简单
纯字符串处理的办法适用于任何情况下,而使用数组因性能问题,只适用于源字符串不太大的情况下
使用数组的办法:
'所有字符串
Dim dString As String = "" '请为字符串赋值
Dim dLines = dString.Split({vbCrLf}, StringSplitOptions.None)
'至少有三行才能向下执行
If dLines.Length 3 Then Return
'获取第三行
Dim dRow = dLines(2).Split(","c)
'至少有4列才能向下执行
If dRow.Length 4 Then Return
'获取第4列
Dim dValue = dRow(3)
'dValue就是想要的数据
richtextbox有两种属性可以显示内容:分别是text和lines~~
text属性是对于单行,不需换行的~~
lines属性是对于多行的,他是一个数组~~
对于text属性可以使用以下代码:
Dim
A
As
Integer
A
=
InStr(RichTextBox1.Text,
"查找字符")
变量A就是字符起始位置
lines属性是一个数组可以用循环每行比对
Dim str1 As String = "112113114111"
Dim str2 As String = "11"
Dim count As Integer = 0
For i As Integer = 0 To str1.Length - 1
Dim f As Integer = str1.IndexOf(str2, i)
If f -1 Then
MsgBox("str2出现在str1的" f "个字符位置")
i = f
count += 1
End If
Next
MsgBox("统计出str1中共有" count "个str2!")
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款