vb.net文件读取txt

1、实现上传按钮方法代码。

为天水等地区用户提供了全套网页设计制作服务，及天水网站建设行业解决方案。主营业务为网站设计、做网站、天水网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现的上传结果。

vb.net读写txt文件的问题

这个用读写TXT的话比较繁琐，建议题主使用读写INI的方式，参考：

'声明INI配置文件读写API函数

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

'定义读取配置文件函数

Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

Dim Str As String = LSet(Str, 256)

GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

End Function

'定义写入配置文件函数

Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)

End Function

'定义INI文件位置

Dim path As String

path = "C:\t861239263.ini" '假设是这个文件

那么读取的时候：

TextBox1.Text = GetINI("main","v1","", path)

TextBox2.Text = GetINI("main","v2","", path)

TextBox3.Text = GetINI("main","v3","", path)

写入的时候：

WriteINI("main","v1", TextBox1.Text, path)

WriteINI("main","v2", TextBox2.Text, path)

WriteINI("main","v3", TextBox3.Text, path)

【附】INI文件的格式，范例：

[main]

v1=133233

v2=132387

v3=322333

[aaa]

abc=1

bcd=2

[bbb]

ni=wo

wo=ta

VB.NET读取TXT文件数据保存为数组

VB.NET编程读取txt文本文档中的数据，并把数据保存为数组，代码如下：

'写配件文件

Private Sub saveIni(ByVal filePath As String, ByVal str As String)

Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件

sw.WriteLine(str)

sw.Flush()

sw.Close()

sw = Nothing

End Sub

'读配件文件

Private Function readIni(ByVal filePath As String)

Dim iniDt As New DataTable

iniDt.Columns.Add("text")

iniDt.Columns.Add("value")

Try

Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)

Dim line As String = ""

While Not sr.EndOfStream

Dim str = sr.ReadLine()'读取当前行

iniDt.Rows.Add(New String() {

str(0),

str(1)

})

End While

sr.Close()

sr = Nothing

Catch ex As Exception

End Try

Return iniDt

End Function

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编写读取txt内容的代码？

窗体上添加2个文本框，设置成多行，2个按钮，在文本框1里随便输入若干文字，可以多行，单击按钮1，保存到文件。然后单击按钮2，把刚才写入的文件读到文本框2里。

代码如下：

'写文本文件

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

'创建(写入)一个文本文件

Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.txt", System.IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)

MyWriter.WriteLine(TextBox1.Text)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

'读文本文件

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'读取一个文本文件

Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.txt", System.Text.Encoding.UTF8)

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

气斜射入水或其他介质，折射光线与入射光线法线在

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运行完成，就完成了读取文本文件内容并输出到立即窗口。