重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim WithEvents SvaeFileDialog1 As New SaveFileDialog
崆峒ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联建站的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:028-86922220(备注:SSL证书合作)期待与您的合作!
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程序。
这是一个读文件函数
Public Shared Function MFC_FSTextFileRead(ByVal FilePath_Name As String) As String
Try
If Dir(FilePath_Name) "" Then
Dim FileReader As System.IO.FileStream = System.IO.File.Open(FilePath_Name, System.IO.FileMode.Open)
Dim FileByte(FileReader.Length - 1) As Byte
FileReader.Read(FileByte, 0, FileReader.Length)
Dim MyEncoder As System.Text.Encoding = System.Text.Encoding.Default
MFC_FSTextFileRead = New String(MyEncoder.GetChars(FileByte))
FileReader.Close()
Else
Return ""
End If
Catch ex As Exception
Return ""
End Try
End Function
你是说记事本的配置吧,
如果设置不是太大,可以保存在注册表中,
另外可以用xml文件或者ini文件来保存配置,
不知道有没理解错你的意思
这是编码问题。
用下面的方法:
If (Me.OpenFileDialog1.FilterIndex = 1) Then '1是一个标识
System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Text, System.Text.Encoding.Default) '当标识等于1时保存的事PlainText格式
Else '否则
System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Rtf, System.Text.Encoding.Default) '保存的是另一种格式