在VB中怎么把RichTextBox1的内容保存为文本格式的文件呢?用上通用对...

若要输出RichTextBox1选定的部分内容，则需要使用二楼的方法：Print #1, RichTextBox1.SelRTF

方法1:RichtextBox的自带参数：savefile 保存为rtf文件 richtextbox1.savefile"c:\text.txt"保存为txt文件 richtextbox1.savefile "c:\text.txt",rtftext 方法2:用open open "c:\1.txt " for output as #1 print #1 ,richtextbox1.text close #1 ...

在编写保存点击事件的代码时，将每个TextBox的内容依次赋值给数组：Private Sub cmdSave_Click()sj(0) = Text1.Text sj(1) = Text2.Text sj(2) = Text3.Text sj(3) = Text4.Text 接下来，使用Open语句以输出方式打开文件，并将数组中的内容写入文本文件。这里假设文件名为testfirst.txt：Ope...

word1文件内容复制到剪贴板，（当然也可以vb编程打开）RichTextBox1.Rtf = Clipboard.GetData(System.Windows.Forms.DataFormats.Rtf)然后在richtextbox1控件中选中要拷文本 Clipboard.SetData(System.Windows.Forms.DataFormats.Rtf, RichTextBox1.SelectedRtf)再粘贴到word2 ...

窗体中有一个CommonDialog控件和一RichTextBox控件。没有的先添加部件。CommonDialog和RichTextBox。open "c:\test.txt" for output as #1 '\\打开TEST.TXT Put #1,me.Caption close #1 RichTextBox1.Visible = False RichTextBox1.text = me.Caption '\\下面打印 With CommonDialog1 .Dialog...

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 ...

word1文件内容复制到剪贴板，（当然也可以vb编程打开）RichTextBox1.Rtf = Clipboard.GetData(System.Windows.Forms.DataFormats.Rtf)然后在richtextbox1控件中选中要拷文本 Clipboard.SetData(System.Windows.Forms.DataFormats.Rtf, RichTextBox1.SelectedRtf)再粘贴到word2 希望能帮到你。

TextBox1.Value = StrConv(InputB(LOF(1), 1), vbUnicode)Close #1 End If End Sub Private Sub CommandButton2_Click()'把textbox中的内容写入一个文本文件,保存当前工作薄所在的目录 arr = Split(TextBox1.Value, vbCrLf)ipath = ThisWorkbook.Path & "\" & Left(arr(0), 8) & "....

因为不知道你有多少个textbox。就使用控件组吧管你多少个都通用。这个假设n=3 form1里面建军个按扭，写代码：Private Sub 保存_Click() 'Dim c As String url = "c:\初月岛.txt"For i = 0 To 3 c = c + Text1(i) + "&"Next On Error Resume Next Open url For Output As #1 Pri...

dim a()a= split(RichTextBox1.Text,vbcrlf)for i=0 to ubound(a)'a(i)就是你要的每一行内容 ...next i