Try
Using sr As StreamReader = New StreamReader("C:\\TestFile.txt")
textbox1.Text = sr.ReadToEnd()
End Using
Catch E As Exception
Console.WriteLine(E.Message)
End Try
修改完成后,保存到文件:
Using sw As StreamWriter = New StreamWriter("C:\\TestFile.txt")
sw.Write(textbox1.Text)
sw.Close()
End Using
其中,流构造的参数
New StreamReader("C:\\TestFile.txt")
New StreamWriter("C:\\TestFile.txt")
中的"C:\\TestFile.txt"可以用OpenFileDialog和SaveFileDialog的FileName属性替换.
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
Using sr As StreamReader = New StreamReader(openFileDialog1.FileName)
textbox1.Text = sr.ReadToEnd()
End Using
Catch E As Exception
Console.WriteLine(E.Message)
End Try
End If
保存的时候换成SaveFileDialog就好
vb.net使用打开对话框,打开一个文本文件显示在文本框中,然后对文本框中...
New StreamWriter("C:\\\\TestFile.txt")中的"C:\\\\TestFile.txt"可以用OpenFileDialog和SaveFileDialog的FileName属性替换.Dim openFileDialog1 As New OpenFileDialog()openFileDialog1.InitialDirectory = "c:\\"openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"openFile...
vb 怎样打开文件并把文件内容显示在文本框
1、添加必要的组件（文本框、按钮）2、设置属性：3、编写按钮的响应代码：代码如下：Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\\test.txt" For Input As #1 Do Input #1, a Text1.Text = Text1.Text & a & vbCrLf Loop Until EOF(1) C...
VB里怎么实现按一个按钮弹出“打开”对话框,并且复制选中文件地址到文本...
Text1.Text = cd1.FileName End Sub 上面代码中cd1是common dialog控件，添加方法：在vb6中单击菜单 工程-->部件，在部件对话框中选择microsoft common dialog control6.0 确定
在VB中,对文本框中的内容进行编辑
Private Sub Command1_Click()Dim a As String Dim sp() As String Dim i As Integer a = ""sp = Split(Text1.Text, vbCrLf)For i = 1 To UBound(sp)If Len(sp(i)) <> 0 Then If InStr(sp(i), "2010") = 0 Then a = a & Replace(sp(i), "HOST Name", "主机名") &...
vb中如何在一个文本框中导入TXT格式的文本~我要自己选择路径的~~
1，使用菜单：[工程] -- [部件]，勾选其中的：Microsoft Common Dialog Control 6.0 (SP6)2，在窗体上添加1个文本框Text1，2个按钮，添加1个CommonDialog1控件。3，设置文本框Text1的MultiLine 属性为True，ScrollBars 属性为2。编写代码如下：Option Explicit Private Sub Command1_Click()'>>> ...
VB中让文本框显示文本文件内容
End Sub Private Sub File1_Click()Open File1.Path & "\\" & File1.FileName For Input As #1 Do While Not EOF(1)Line Input #1, temp str1 = str1 & temp & vbCrLf Loop Close #1 Text1.Text = str1 End Sub Private Sub Form_Load()Combo1.AddItem "*.txt"End Sub ...
vb.net 怎样实现替换文本框中选中的文字,和在光标出插入文字
1.选中要替换文本框中文字直接出入即可.2.从textbox的属性中设置:双击textbox1,打开其代码框在光标处输入TextBox1.Text = "你好！",你好是输入的内容.
VB怎么在文本框中输入内容
一共七步首先，在窗口中添加一个文本框，如下图所示，然后进入下一步。其次，单击文本框，在属性窗口中设置文本框的属性，清除文本，如下图所示，然后进入下一步。接着，将文本框的enabled属性设置为False，如下图所示，然后进入下一步。然后，在表单上添加一个命令按钮，如下图所示，然后进入下一步。
vb窗口中有10个文本框,在每个文本框中填写姓名,每个姓名只能填写一次...
可以在文本框失去焦点（LostFocus事件）的时候检查，用失去焦点的文本框的内容与其他文本框的内容逐一比较，有相同内容的，首先弹出Msgbox对话框提示，然后让该文本框重新获得焦点（SetFocus），重新输入。
求教vb.net中的openfiledialog控件。
'Line变量用于储存被打开文件中的每一行文本 OpenFileDialog1.Filter = "Text File (*.txt)|*txt" '设置打开的文件类型为 .txt OpenFileDialog1.ShowDialog() '显示打开对话框 If OpenFileDialog1.FileName <> "" Then '如果文件路径不为空则执行Then后面的语句 Try '使用...
