十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
简单,思路:
十载的雨花台网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整雨花台建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联建站从事“雨花台网站设计”,“雨花台网站推广”以来,每个客户项目都认真落实执行。
1、将每行数据放到数组
2、把”:“作为分隔符拿到你想要的字符串
程序如下:
dim ArrTemp() as string
ArrTemp=split(你的这堆字符,vbcrlf)
dim i as int
dim ArrTemp1() as string
for i=0 to ubound(ArrTemp)
ArrTemp1=split(ArrTemp(i),":")
msgbox left(ArrTemp1(1),len(ArrTemp1(1))-1)
next
源代码如下:(代码写在按钮点击事件里)
Label1.Text = ""
Label2.Text = ""
Dim a As String = TextBox1.Text
Dim b As String = TextBox2.Text
For x = 1 To a.Length
Dim txt As String = Mid(a, x, 1)
If txt Like "#" Then
Label1.Text = Label1.Text txt
End If
Next
For x = 1 To b.Length
Dim txt As String = Mid(b, x, 1)
If txt Like "#" Then
Label2.Text = Label2.Text txt
End If
Next
此方法用的是mid 将一个字符串拆分成单个字符,然后用like运算符进行对比是否为数字,关于这两个函数的用法如果不懂的可以自己搜索下,此外还有别的方法,这里就不多说了
首先应该在窗口(Form1)上添加一个TextBox1合一个Button1
然后添加以下代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mystring As String
mystring = TextBox1.Text
Msgbox(mystring)
End Sub
总之TextBox1.Text中的TextBox1一定要和你的文本框的名字(Name)相同