Question

我需要知道如何保存.txt程序中的Visual Basic 2010文件并将其保存为特殊格式。

我需要像"monday:email@email.com" & "4/22/2013:email@email.com".

一样保存

我该怎么做？

我正在使用Visual Basic 2010。

还有2个列表框需要像这样保存。 "listbox1info:listbox2info"。

我需要更新我的程序ASAP。

如何实现这个目标？

我的代码是：

Public Class Form1
    Dim streamer As IO.StreamReader

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        ListBox1.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        streamer = IO.File.OpenText(ListBox1.Text)
        Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)
        ListBox1.Items.AddRange(mystring)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OpenFileDialog1.ShowDialog()
        TextBox2.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        streamer = IO.File.OpenText(TextBox2.Text)
        Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)
        ListBox2.Items.AddRange(mystring)
    End Sub
End Class

Answer 1

那个星期一和email@email.com来自哪里？根据您的需要，累计调整变量strFileName，比如当天，当前日期，从数据库中提取的动态电子邮件地址等;否则，这样做

Dim strFileName As String = ""
Dim strContent As String = ""

strFileName = "monday:email@email.com" & "4/22/2013:email@email.com" & ".txt"
strContent = "whatever you want"

My.Computer.FileSystem.WriteAllText(strFileName, strContent, True)

将.txt文件保存为特殊格式

1 个答案: