VB點虐 讀取文本文件？

1、實現上傳按鈕方法代碼。

公司主營業務：網站建設、成都網站設計、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳，提高企業的競爭能力。創新互聯是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創新互聯推出萊西免費做網站回饋大家。

2、判斷圖片對象是否為空代碼。

3、取得數據庫字段 dt.Rows(0)("Pic")方法代碼。

4、字節數組轉換為Image類型方法代碼。

5、處理SQL中操作Image類型方法代碼。

6、實現的上傳結果。

在VB.NET中實現文件的拖放

本文介紹了在VB NET中如何實現接受拖放的文件 即從資源管理器中拖放到應用程序中的時候 自動獲取拖放的文件 文中的例子是一個接受拖放文件顯示文件內容的VB NET實例程序 引言

對于文本格式的文件 我們可以直接拖到記事本中就可以看到內容 各種類型的圖片 拖到Photoshop中 就可以直接對其編輯 我們如何在VB NET開發的程序也實現上述效果呢？

思路

我們知道 每一個Windows的應用程序都有一個消息隊列 程序的主體接受系統的消息 然后分發出去（給一個form 或者一個控件） 接受者有相應的程序來處理消息 在 NET的Form中 默認情況下程序是不翻譯這些消息的 也就是說默認我們的Class是不加入應用程序的消息泵 能不能把我們的Form Class加入應用程序的消息泵呢？可以！

在 NET中 任何一個實現IMessageFilter 接口的類 可以添加到應用程序的消息泵中 以在消息被調度到控件或窗體之前將它篩選出來或執行其他操作 使用 Application 類中的 AddMessageFilter 方法 可以將消息篩選器添加到應用程序的消息泵中

于是我們在程序加載的時候 調用Application AddMessageFilter（Me） 然而 默認情況下一個Form或者控件是不能接受拖放的文件的 我們調用一個WIN API DragAcceptFiles源碼天空 這個API可以設置對應的控件是否能接受拖放的文件 然后可以用DragQueryFile查詢拖放到的文件列表 也就是拖放文件地具體路徑和文件名

代碼

Imports System Runtime InteropServices

Public Class Form

Inherits System Windows Forms Form

Implements IMessageFilter

API申明

Const WM_DROPFILES = H ? 拖放文件消息

DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）

End Sub

DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）

End Sub

DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer

End Function

Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load

Application AddMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt True）

End Sub

Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage

If m Msg = WM_DROPFILES Then

設置拖放的動作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（ ）

Dim sFirstFileName As String 記錄第一個文件名

TextBox Clear（）

For i = To nfiles

DragQueryFile（m WParam ToInt i *** ）

If i = Then sFirstFileName = *** ToString

TextBox AppendText（ControlChars CrLf *** ToString）

Next

DragFinish（m WParam ToInt ） 拖放完成

顯示文件內容

Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）

Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））

TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）

fs Close（）

sr Close（）

End If

Return False

End Function

Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

If disposing Then

If Not （ponents Is Nothing） Then

ponents Dispose（）

End If

End If

Application RemoveMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt False）

MyBase Dispose（disposing）

End Sub

lishixinzhi/Article/program/net/201311/13043

VB.NET讀寫文本文件方法

工作需要 我需要使用對文本文件進行讀寫操作 編程需要完成如下工作

把程序執行錯誤追加到錯誤日志中

使巧巧讀書網的編輯能夠讀取錯誤日志

記得以前使用vb 的時候 對文本文件的操作挺麻煩的 特別是在寫文件的時候 需要區分什么順序文件 隨機文件 很教材都專門針對文本文件的讀寫開辟了一個章節來講解 夠麻煩的了 現在使用 net讀寫文本文件 因為時間倉促 沒來得及細看MSDN 同時受到 的思路影響 把問題復雜化了 在追加記錄到文本文件尾部的時候就寫不下去了 后來仔細看了一下MSDN中例子 問題終于得到了解決

好了下面進入正題 分別把中對文本文件進行讀和寫的通用操作做個示例 免得后來新手多走彎路

我們這里是對文件流進行操作 所以模塊前面要加上

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

首先要說明的是構造函數new

Public Sub New（path append Encoding）

path 要打開文件的完整路徑 如果文件不存在則自動建立一個新的文件

append 缺省值為false 指示是否以追加方式打開指定文件 false——如果存在path指定的文件 則覆蓋原文件 否則建立一個新文件 true——如果存在path指定的文件 則打開該文件 以追加數據的方式在文尾寫數據 否則建立一個新文件

Encoding 缺省值為System Text Encoding Default 即使用系統缺省的編碼 指示以什么樣的編碼寫文件

WriterLine（str） 在文本中添加一個新行 同時在行尾加上回車換行符

讀操作

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

構造函數new

Public Sub New（Path Encoding）

path 要打開文件的完整路徑 如果文件拋出一個錯誤

Encoding 缺省值為System Text Encoding Default 即使用系統缺省的編碼 指示以什么樣的編碼讀文件

lishixinzhi/Article/program/net/201311/11973

網站標題：vb點虐 文件操作 vbnet文件操作
轉載注明：http://www.yijiale78.com/article38/ddgcesp.html

成都網站建設公司_創新互聯，為您提供微信小程序、靜態網站、網站營銷、做網站、網站建設、移動網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯