关于保存文本文档到本地

Question

TStringList *sl = new TStringList;
sl->Add("123456789");
sl->SaveToFile("D:\info.txt");
delete sl;#include <stdio.h> FILE* pfile; 
pfile = fopen("c:\\test.txt", "a+"); 
fprintf(pfile, "%s\n", "我测试"); 
fclose(pfile); 刚在网上找的保存文本文档的我看不懂  OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt"
        Me.txtRead.Multiline = True
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Me.txtRead.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName, System.Text.Encoding.GetEncoding("gb2312"))
        End If
能帮我根据上面这个打开的方式修改成保存的把 谢谢啦

Answer 1

From MSDN:using System;
using System.IO;class Test 
{
    public static void Main() 
    {
        // Create an instance of StreamWriter to write text to a file.
        // The using statement also closes the StreamWriter.
        using (StreamWriter sw = new StreamWriter("TestFile.txt")) 
        {
            // Add some text to the file.
            sw.Write("This is the ");
            sw.WriteLine("header for the file.");
            sw.WriteLine("-------------------");
            // Arbitrary objects can also be written to the file.
            sw.Write("The date is: ");
            sw.WriteLine(DateTime.Now);
        }
    }
}

Answer 2

想用到SaveFileDialog控件

Answer 3

是啊   我需要的还是vb的代码呢  vb的代码太少了 

Answer 4

什么意思？要把TextBox中的文本存到文本文件中？

Answer 5

[C# code]TStringList *sl = new TStringList;//创建一个字符串实例，在这个类中存在add和savetofile的两个方法
sl->Add("123456789"); //利用save（）添加一个字符串
sl->SaveToFile("D:\info.txt");//写入本地info.txt中
delete sl;//这个就是将刚才创建的内存注销[/C# code]

Answer 6

是的  就是想要这样的效果  要得用到 SaveFileDialog控件  就跟你刚给我说的打开的过程相反 

Answer 7

最好是C的或者VB的啊 其余不怎么看得懂 C也不太懂的～

Answer 8

Dim myStream As Stream = Nothing 
Dim saveFileDialog1 As New SaveFileDialog() 
saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" 
saveFileDialog1.FilterIndex = 1 
saveFileDialog1.RestoreDirectory = True 
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile() 
Using sw As New StreamWriter(myStream) 
    sw.Write("") 
End Using 
End If 

Answer 9

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.Filter = "*.txt|*.txt"
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            System.IO.File.AppendAllText(SaveFileDialog1.FileName, Me.TextBox1.Text, System.Text.Encoding.GetEncoding("gb2312"))'如果要覆盖原有文件内容，就把AppendAllText换成WriteAllText
        End If
    End Sub