'这个当然可以,用mid 取字符串的位置长度
成都创新互联公司2013年至今,公司自成立以来始终致力于为企业提供官网建设、移动互联网业务开发(成都微信小程序、手机网站建设、重庆APP软件开发等),并且包含互联网基础服务(域名、主机服务、企业邮箱、网络营销等)应用服务;以先进完善的建站体系及不断开拓创新的精神理念,帮助企业客户实现互联网业务,严格把控项目进度与质量监控加上过硬的技术实力获得客户的一致赞誉。
Dim str As String = "16461了工有6149夺中46146好31"
Label1.Text = Mid(str, str.Length - 3, 3) '取字符串最后3位数
Label2.Text = Mid(str, 1, 3) '取字符串前面3位数
首先在代码的开头引入命名空间:
Imports System.IO
给出三个读文本文件的例子。
'直接读取所有文本
Dim fileString As String = File.ReadAllText("1.txt")
'把所有行弄进一个数组
Dim fileLines() As String = File.ReadAllLines("1.txt")
'以流的方式一行一行读取
Using fs As FileStream = File.OpenRead("1.txt") '初始化文件流
Using sr As New StreamReader(fs) '初始化流读取器
Dim lineString As String = ""
While Not sr.EndOfStream '循环直到流结束
lineString = sr.ReadLine() '读一行
'这里lineString就是每行的文件内容了。
'你可以在这里对它进行处理。
End While
End Using
End Using
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.SelectionStart = Len(TextBox1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = TextBox1.Text
Dim p As Integer = InStrRev(s, vbCrLf)'从右侧开始查找出现回车符的位置(但位置仍从左算起)
Dim s1 As String'用于保存最后一行字符串
If p = 0 Then'若未找到回车符,则直接将整个字符串赋给S1
s1 = s
Else
s1 = Mid(s, p + 2)'若找到回车符,则截取回车符右边的部分
End If
MsgBox(s1)'显示你要找的最后一行字符串
End Sub
如果只是末尾的空行,直接用Trim方法就可以了
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行,用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到
新闻名称:vb.net文本末尾 VB文本框内容
分享路径:https://www.cdcxhl.com/article14/doogpde.html
成都网站建设公司_创新互联,为您提供自适应网站、外贸建站、用户体验、软件开发、品牌网站设计、品牌网站制作
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联