vb.net文件保存代码 vbnet imports

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

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

'写配件文件

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

相关问答

Q1: vb.net 调试 保存 刚从vb6.0转战到vb.net 发现.net运行调试后，代码就自动保存了。能否取消自动保存？

准备VB6.0源代码

1

打开visual basic 6.0编程工具vb.net文件保存代码，制作一个简单的小程序。在界面中增加一个按钮vb.net文件保存代码；一个文本框，在点击按钮后，会弹出对话框。

2

生成运行程序进行测试。

3

点击按钮，可以看到弹出的对话框和文本框中显示的字符串。

4

将测试程序保存到桌面的一个测试文件夹。

END

将VB6.0源代码转换为VB.NET

打开Microsoft visual studio 2008。

打开刚才保存的vb6.0项目。

会弹出升级向导，按照默认选项进行升级。

等待几十秒后，升级成功。

可以在vs编程工具中看到转换为vb.net的源代码.

在刚才的VB6.0源代码文件夹中会看到新增一个[project1.net]的文件夹。

文件夹中就是转换为vb.net的源代码文件，已经成功将VB6.0转换为VB.net。

Q2: 求VB.NET写的自动保存txt文档的代码

直接给你保存和读取TXT的VB.NET的函数代码，你只要在触发事件中调用就可以了，注意换行，有的是显示不下去才显示两行的，还有strFilePath代表文件路径，TempENG代表文件编码格式如：UTF-8或者GB2312，strText 代表内容字符串。

#Region "读取TXT"

Public Function ReadTxt(ByVal strFilePath As String, ByVal TempENG As String) As String

Dim mySr As System.IO.StreamReader

Dim strS As String

Dim n%

strS = ""

mySr = New System.IO.StreamReader(strFilePath, System.Text.Encoding.GetEncoding(TempENG))

Do

Dim line$ = mySr.ReadLine()

strS = strS line vbCrLf

n = n + 1

Loop Until mySr.EndOfStream = True

mySr.Close()

Return strS

End Function

#End Region

#Region "保存TXT"

Public Function SaveTxt(ByVal strFilePath As String, ByVal strText As String, ByVal TempENG As String) As Boolean

Try

If Dir(strFilePath) "" Then File.Delete(strFilePath)

Dim mySw As System.IO.StreamWriter

Dim strLine() As String

mySw = New System.IO.StreamWriter(strFilePath, True, System.Text.Encoding.GetEncoding(TempENG))

strLine = Split(strText, vbCrLf)

For i As Integer = 0 To UBound(strLine)

mySw.WriteLine(strLine(i))

Next

mySw.Close()

Return True

Catch ex As Exception

Return False

End Try

End Function

#End Region

Q3: 求VB.NET记事本“保存”按钮代码

Dim WithEvents SvaeFileDialog1 As New SaveFileDialog

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles button1.Click

Dim pp As String

SvaeFileDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"

Dim r As MsgBoxResult

r = SvaeFileDialog1.ShowDialog

If r Then

FileOpen(1, SvaeFileDialog1.FileName, OpenMode.Output)

pp = Mid(Me.TextBox1.Text, 1, Len(Me.TextBox1.Text))

Print(1, pp)

Close()

MsgBox("Export Successfully!")

End If

End Sub

以上VS2010 WPF程序。

Q4: vb文件保存代码

VBweb保存代码如下：

Private Sub mnusave_Click() '保存

Set fs = CreateObject("Scripting.FileSystemObject")

CommonDialog1.InitDir = "c:\"

CommonDialog1.Filter = "文本文件|*.txt"

If fs.fileexists(FileName) = False Then

CommonDialog1.ShowSave

End If

FileName = CommonDialog1.FileName

RichTextBox1.SaveFile FileName, rtfText

Me.Caption = "Easy Notebook -" FileName

End Sub

vb.net文件保存代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet imports、vb.net文件保存代码的信息别忘了在本站进行查找喔。