正文
vb.net文本处理 vbnet writeline
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
我用是的vb.net怎样将文本文件里面的内容快速的写到文本框中，
根本不用那么麻烦！
界面中添加一个Button和RichTextBox控件（自带vb.net文本处理的）vb.net文本处理，双击后添加以下代码vb.net文本处理：
RichTextBox1.LoadFile("F:\临时文件\123.txt", RichTextBoxStreamType.PlainText)
就这么简单的一句，比用什么EOF去判断文件尾巴好多vb.net文本处理了
相关问答
Q1: vb.net处理的文本文件为什么会出现小方格大神们帮帮忙
呵,换行符的问题 我以前出现几次这问题了 好象把chr(10)和chr(13)分别替换了,并换成vbcrlf就行啦
Q2: vb.net textbox1选中的文本，拖放到textbox2？
很久没有上这里了，今天看到了这个问题，尝试做了一个；
本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放
1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。
2、完整的代码如下：
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'设置一个标志以显示鼠标已按下。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'开始拖动（将TextBox1的文本内容作为拖放内容）。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'检查正在被拖放的数据的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'显示复制光标（表示是拖放行为）。
e.Effect = DragDropEffects.Copy
Else
'显示不放置光标（表示不是拖放行为）。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘贴文本（将拖放内容作为TextBox2的文本内容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
Q3: VB.net 读取文本文件？
1、实现上传按钮方法代码。
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。
Q4: vb.net中，如何删除指定文本文档中的指定行的内容
Dim newfile As New List(Of String)
For Each line As String In System.IO.File.ReadAllLines("TextFile1.txt")
If Not line.StartsWith("3") Then newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt", newfile)
建个集合vb.net文本处理，用System.IO.File的ReadAllLines读出所有内容vb.net文本处理，逐个判断，如果是需要的加入集合，如果是要删除的什么都不做，最后用WriteAllLines写入即可。
这里说明一下，上面那个代码是用来删除所有以3开头的文本行。
Q5: VB.NET文本框中的文本格式进行相应的设置
太晚了，想不出什么好方法了。
发上来看看吧。
首先建立一个TextBox,我这里名字为TextBox2
然后放一个groupbox，在里头放两个Checkbox,checkbox1为粗体，checkbox2为斜体。
代码：
Dim Bold As Boolean
Dim Italic As Boolean
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
Bold = True
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold Or FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
End If
Else
Bold = False
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
Italic = True
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic Or FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
End If
Else
Italic = False
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
可以等等别人回答，看看有没有更好的方法。
关于vb.net文本处理和vbnet writeline的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
