包含vb.net定义txt的词条

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

相关问答

Q1: vb.net创建一个txt文本，在debug文件夹里

设计一个窗口vb.net定义txt，添加一个名为textBox1的System.Windows.Forms.TextBoxvb.net定义txt，

添加一个名为button1的System.Windows.Forms.Button。

为button1的单击事件添加如下处理函数vb.net定义txt：

Sub Button1Click(sender As Object, e As EventArgs)

'f是你的文本文件的文件名

Const f As String="t.txt"

Dim sw As System.IO.StreamWriter=Nothing

Try

If Not System.IO.File.Exists(f) Then

sw=System.IO.File.CreateText(f)

Else

sw=New System.IO.StreamWriter(f,True)

End If

sw.WriteLine(textBox1.Text)

Finally

If sw IsNot Nothing Then

sw.close()

End If

End Try

End Sub

Q2: 请教在VB.net中如何将数据写入txt文件、再从txt文件读出？

软糖来告诉你吧。

VB.net中读写文件主要使用System.IO命名空间。

① 使用 File.ReadAllText 读取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

③ 使用 File.WriteAllText 写入，会覆盖同名的文件。

Dim 要写的内容 As String = ""

File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)

④ 使用 StreamWriter 写入。

Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

sw.WriteLine(TextTB.Text)

sw.Close()

⑤ 使用 StreamWriter 追加写入。

将上面代码的第二个参数False改为True。

◆ 满意请采纳，谢谢 ◆

Q3: 在vb.net中如何生成一个txt文件，并且写入一个数组的值？

已测试，代码如下：

Imports System.IO '引入文本操作

Public Class Form1

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

Dim txt As String = Me.getTxt

SaveTxt(txt)

End Sub

'取得存储的文本

Private Function getTxt() As String

Dim x(0 To 10) As Integer

For i As Integer = 0 To x.Length - 1

x(i) = CInt(100 * Rnd())

Next

Dim str As String = ""

For j As Integer = 0 To x.Length - 1

str += x(j).ToString  vbCrLf

Next

Return str

End Function

'存储文本

Private Sub SaveTxt(ByVal v As String)

Dim fp As String = GetSavePath()

If String.IsNullOrEmpty(fp) = False Then

'StreamWriter

Dim Swriter As New StreamWriter(fp, False) '覆盖或新建

Swriter.WriteLine(v)

Swriter.Close()

End If

End Sub

'取得存储路径

Private WithEvents sd As New SaveFileDialog

Private Function GetSavePath() As String

sd.FileName = ""

sd.AddExtension = True

sd.DefaultExt = "txt"

sd.Filter = "TXT文件(*.txt)|*.txt"

sd.ShowDialog()

Return sd.FileName

End Function

End Class

测试截图如下。

Q4: vb.net中将输入inputbox的信息生成txt文件

Private Sub Form_Load()

Dim text '先定义

text = InputBox("input strings") '输入

Open "c:\text.txt" For Output As #1 在C盘建一个text.txt并打开

Print #1, text '输出

Close #1 '关闭文件

End Sub

多补补基础知识吧

Q5: 【vb.net】怎么把text里面的内容生成一个txt文件

Dim SaveFileDialog1 As New SaveFileDialog()

'创建一个保存对话框

SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"

'设置

扩展名

If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

'如果确定保存

My.Computer.

FileSystem

.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False)

'保存文本,False表示不追加文本，直接覆盖其内容

End If

vb.net定义txt的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net定义txt的信息别忘了在本站进行查找喔。