189 8069 5689

vb.net读取字段内容 vb读取文件内容

VB.NET 怎么获取txt特定字段后的内容?

Dim str As String = My.Computer.FileSystem.ReadAllText("D:\Demo.txt")

创新互联公司长期为近千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为庆安企业提供专业的网站制作、成都网站制作,庆安网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。

Dim str_search As String = "profile=" '定义要搜索的字符串

TextBox1.Text = str.Substring(InStr(str, str_search) + str_search.Length - 1)

VB.net窗体设计中,如何读取.txt文件中的数据?

1、新建一个标准的VB EXE工程,只有一个Form,Form上有两个按钮:Command1和Command2。

2、双击Command1添加如下代码

Private Sub Command1_Click()

Dim strFile     As String

Dim intFile     As Integer

Dim strData     As String

strFile = "c:\学生成绩.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8开始单步调试代码,点击Command1,进入单步调试功能,

4、多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。

vb.net 读取sql数据库字段

我是用C#.net写出来的

SqlConnection myConn = new SqlConnection(sqlconnstring);

myConn.Open();

SqlDataAdapter thisAdapter = new SqlDataAdapter("SELECT * from 表名", myConn);

thisAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey;

DataTable thisDataTable = new DataTable();

thisAdapter.Fill(thisDataTable);

DataTableReader thisReader = new DataTableReader(thisDataTable);

DataTable schemaTable = thisReader.GetSchemaTable();

foreach (DataRow dr in schemaTable.Rows)

{

MessageBox.Show(dr["ColumnName"].ToString());获取字段名称(f1 f2 f3)

MessageBox.Show(dr["ColumnSize"].ToString());获取字段长度(2 2 2)

MessageBox.Show(dr["DataType"].ToString());获取字段类(str str int)

}

VB.net 如果读取txt数据(或十进制dat数据)

vb.net虽也有input语句,但一次只能读取到一个变量中,可以用TextFieldParser类代替,但似乎没以前的方便。不过比以前的更灵活。写入文件Write还是可以用,在Microsoft.VisualBasic.FileIO中。

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

Dim fileName As String = "E:\User Documents\Master\My Documents\电子阅读\股票\table2.csv"

Using Recrods As New Microsoft.VisualBasic.FileIO.TextFieldParser(fileName) '建立TextFieldParser对象

'MyReader.TextFieldType = FieldType.Delimited

Recrods.SetDelimiters(",") '把字段分隔符设置为","

Dim curRow() As String

Do Until Recrods.EndOfData

curRow = Recrods.ReadFields() '读取记录行,返回字符串数组,所以不同字段类型需要自己转换。

Debug.Print(Join(curRow, vbTab))

Loop

End Using

End Sub


当前名称:vb.net读取字段内容 vb读取文件内容
转载源于:http://jkwzsj.com/article/dososee.html

其他资讯