vb.net怎么读取txt数据，去掉含有字母的行，对只含有数字的行，只取其前四个数据，或是中间某几个数据！

Imports System.IO

创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于网站设计制作、成都网站建设、营口网络推广、成都微信小程序、营口网络营销、营口企业策划、营口品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供营口建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim line As String

Dim isnumber As Boolean

Dim i As Int16

Dim f As FileStream

Dim ff As FileStream

ff = New FileStream("c:\数据1.txt", FileMode.OpenOrCreate)

f = New FileStream("c:\数据.txt", FileMode.Open)

Dim rf As StreamReader

rf = New StreamReader(f)

Dim fw As StreamWriter

fw = New StreamWriter(ff)

Do

line = rf.ReadLine

If line = "" Then Exit Do

isnumber = True

For i = 1 To line.Length

If IsNumeric(Microsoft.VisualBasic.Mid(line, i, 1)) = False Then

isnumber = False

Exit For

End If

Next

If isnumber Then

'line = Microsoft.VisualBasic.Left(line, 4) '取左边4个

'line = Microsoft.VisualBasic.Mid(line, n, n) 取中间几个

fw.WriteLine(line)

End If

Loop

fw.Close()

rf.Close()

ff.Close()

f.Close()

End Sub

End Class

在form上放一个button，在c:\数据.txt里放入你要读取的数据，点击button，会生成c:\数据1.txt。里边就是你要的数据了，根据你的需要把

'line = Microsoft.VisualBasic.Left(line, 4) '取左边4个

'line = Microsoft.VisualBasic.Mid(line, n, n) 取中间几个

前边的引号去掉就可以满足你的要求了。

程序在win7 64x VB2005条件下测试没有问题。

在VB.NET中怎样用一个按钮来逐个删除文本中的文字？

既然你可以用BACKSPACE来删除文字，那你在VB.Net中你可以模拟一下按下键盘BACKSPACE啊！！你找一下Sendkey类的send（）方法！在C#中可以这么做Sendkey.Send("{BACKSPACE}");我不太会VB的语法，所以不知道这个在VB中是不是这么写，你可以查一下!!

使用VB.net 不知道按错哪个键,现在输入一个字母,后面字母会被替代了.那我该怎么处理

你按到键盘上的 Insert建了 在 Home键的后面，把这个键在按一次就好了

网站栏目：vb.net去除字母 vb的清除代码
路径分享：http://ybzwz.com/article/hgspps.html