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

就是把text1里面输入一些文字,点击按钮Button1,弹窗口问保存的文件名(最好文件名输入时自带.txt),保存了后,在程序目录下生成一个txt,内容是之前输入的te... 就是把text1里面输入一些文字,点击按钮Button1,弹窗口问保存的文件名(最好文件名输入时自带.txt),保存了后,在程序目录下生成一个txt,内容是之前输入的text1里的,和确定文件名后的一个.txt文件,该怎么做到?
抱歉是Textbox1
展开
 我来答
百百mp3
推荐于2017-11-26 · TA获得超过855个赞
知道小有建树答主
回答量:901
采纳率:90%
帮助的人:550万
展开全部
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
百度网友bdb9803
2014-08-30 · TA获得超过1.1万个赞
知道大有可为答主
回答量:1.1万
采纳率:53%
帮助的人:1亿
展开全部
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fn As String = InputBox("请输入文件名,不需要.TXT后缀", "提示")
        If fn <> "" Then
            fn = My.Computer.FileSystem.CombinePath(Application.StartupPath, fn & ".txt") '当前路径和输入文件名组合
            My.Computer.FileSystem.WriteAllText(fn, TextBox1.Text, My.Computer.FileSystem.FileExists(fn)) '如果文件已存在,则追加内容,否则建立新文件
        End If
    End Sub
追问
虽然采纳了别人,不过还是谢谢你了
追答
晕,选路径就更简单了,就是看你题目是当前程序目录,才这么写代码的!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
discodjjack
2014-08-30 · TA获得超过784个赞
知道小有建树答主
回答量:565
采纳率:74%
帮助的人:162万
展开全部
添加一个textbox 一个Button一个SaveFileDialog
程序如下:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
SaveFileDialog1.ShowDialog()
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, True)
MsgBox("已保存文件到:" & SaveFileDialog1.FileName)
End Sub
End Class
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式