vb点虐 如何取出多行字符串中的指定的一行

第一个问题有个简单的方法，把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如：

10年积累的成都网站建设、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站制作后付款的网站建设流程，更有阿瓦提免费网站建设让你可以放心的选择与我们合作。

dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定义变量

textbox1.text=a ‘赋值

message.show(textbox1.lines(2).tostring) ‘显示第三行内容。

第二个问题结合第一个问题，用循环逐行查找，就可知道字符串第一次出现在哪行。

vb点虐 怎么提取字符串？

在VB中是这样的，没学过VB点虐 ，你变换一下就可以了

按你说的，用用Left,Right和Mid

Option Explicit

Private Sub Command1_Click()

Dim Num(2)

Num(0) = Val(Left(Label1.Caption, 2))

Num(1) = Val(Mid(Label1.Caption, 3, 1))

Num(2) = Val(Right(Label1.Caption, 2))

MsgBox "Num(0)="  Num(0)  vbCrLf  "Num(1)="  Num(1)  vbCrLf  "Num(2)="  Num(2)

'如果想测试是不是可以计算，可以用这一句

'MsgBox "Num(0)+1="  Num(0) + 1  vbCrLf  "Num(1)+1="  Num(1) + 1  vbCrLf  "Num(2)+1="  Num(2) + 1

End Sub

Private Sub Form_Load()

Label1.Caption = "12345"

End Sub

有问题请追问，满意请采纳！

VB.NET正则提取字符串的函数帮我看看为什么不成功？

因为|在正则表达式中是或的意思,如果要用|字符的原意,需要用转义符\转义才行.

因此,你的第二个函数调用应该这样写dim str3 as string = Extract(str1,"6","\|",false)

加一个转义符.

本文名称：vb点虐 取字符串函数 vba取字符串中的字符
URL链接：http://pwwzsj.com/article/ddjggco.html