建站
咨詢
售后
建站咨詢
新聞中心
vb點(diǎn)虐 中，如何刪除指定文本文檔中的指定行的內(nèi)容
Dim?newfile?As?New?List(Of?String)
創(chuàng)新互聯(lián)公司客戶idc服務(wù)中心，提供雙線服務(wù)器托管、成都服務(wù)器、成都主機(jī)托管、成都雙線服務(wù)器等業(yè)務(wù)的一站式服務(wù)。通過各地的服務(wù)中心，我們向成都用戶提供優(yōu)質(zhì)廉價(jià)的產(chǎn)品以及開放、透明、穩(wěn)定、高性價(jià)比的服務(wù)，資深網(wǎng)絡(luò)工程師在機(jī)房提供7*24小時(shí)標(biāo)準(zhǔn)級(jí)技術(shù)保障。
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)
建個(gè)集合，用System.IO.File的ReadAllLines讀出所有內(nèi)容，逐個(gè)判斷，如果是需要的加入集合，如果是要?jiǎng)h除的什么都不做，最后用WriteAllLines寫入即可。
這里說明一下，上面那個(gè)代碼是用來刪除所有以3開頭的文本行。
VB點(diǎn)虐 讀取文本文件？
1、實(shí)現(xiàn)上傳按鈕方法代碼。
2、判斷圖片對(duì)象是否為空代碼。
3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實(shí)現(xiàn)的上傳結(jié)果。
VB.NET讀寫文本文件方法
工作需要 我需要使用對(duì)文本文件進(jìn)行讀寫操作 編程需要完成如下工作
把程序執(zhí)行錯(cuò)誤追加到錯(cuò)誤日志中
使巧巧讀書網(wǎng)的編輯能夠讀取錯(cuò)誤日志
記得以前使用vb 的時(shí)候 對(duì)文本文件的操作挺麻煩的 特別是在寫文件的時(shí)候 需要區(qū)分什么順序文件 隨機(jī)文件 很教材都專門針對(duì)文本文件的讀寫開辟了一個(gè)章節(jié)來講解 夠麻煩的了 現(xiàn)在使用 net讀寫文本文件 因?yàn)闀r(shí)間倉促 沒來得及細(xì)看MSDN 同時(shí)受到 的思路影響 把問題復(fù)雜化了 在追加記錄到文本文件尾部的時(shí)候就寫不下去了 后來仔細(xì)看了一下MSDN中例子 問題終于得到了解決
好了下面進(jìn)入正題 分別把中對(duì)文本文件進(jìn)行讀和寫的通用操作做個(gè)示例 免得后來新手多走彎路
我們這里是對(duì)文件流進(jìn)行操作 所以模塊前面要加上
Imports System IO
寫操作
使用System IO的StreamWriter 下面是代碼
Dim strFilePath As String = SaveFileDialog FileName
Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以追加的方式打開指定文件
For i = To j
temp = i ToString
sw WriteLine（temp）
sw Flush（）
Next
sw Close（）
sw = Nothing
首先要說明的是構(gòu)造函數(shù)new
Public Sub New（path append Encoding）
path 要打開文件的完整路徑 如果文件不存在則自動(dòng)建立一個(gè)新的文件
append 缺省值為false 指示是否以追加方式打開指定文件 false——如果存在path指定的文件 則覆蓋原文件 否則建立一個(gè)新文件 true——如果存在path指定的文件 則打開該文件 以追加數(shù)據(jù)的方式在文尾寫數(shù)據(jù) 否則建立一個(gè)新文件
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼寫文件
WriterLine（str） 在文本中添加一個(gè)新行 同時(shí)在行尾加上回車換行符
讀操作
Dim line As String
Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）
Do While sr Peek（）
line = sr ReadLine（）
Loop
sr Close（）
sr = Nothing
構(gòu)造函數(shù)new
Public Sub New（Path Encoding）
path 要打開文件的完整路徑 如果文件拋出一個(gè)錯(cuò)誤
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼讀文件
lishixinzhi/Article/program/net/201311/11973
vb點(diǎn)虐 textbox1選中的文本，拖放到textbox2？
很久沒有上這里了，今天看到了這個(gè)問題，嘗試做了一個(gè)；
本例以源文本框TextBox1全部文字作為拖放文字為例，實(shí)現(xiàn)拖放
1、向一個(gè)窗體中添加兩個(gè)文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設(shè)置成True，這點(diǎn)不要遺漏。
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
'設(shè)置一個(gè)標(biāo)志以顯示鼠標(biāo)已按下。
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
'開始拖動(dòng)（將TextBox1的文本內(nèi)容作為拖放內(nèi)容）。
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
'檢查正在被拖放的數(shù)據(jù)的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'顯示復(fù)制光標(biāo)（表示是拖放行為）。
e.Effect = DragDropEffects.Copy
Else
'顯示不放置光標(biāo)（表示不是拖放行為）。
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
'粘貼文本（將拖放內(nèi)容作為TextBox2的文本內(nèi)容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
新聞標(biāo)題：vb點(diǎn)虐 文本操作 vb net
轉(zhuǎn)載來于：http://www.dlmjj.cn/article/ddeeepj.html
