如何用VB點(diǎn)虐 讀寫Unicode編碼的文本

不要用do until，用for:

我們提供的服務(wù)有：成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、武邑ssl等。為近千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的武邑網(wǎng)站制作公司

Dim arr() As String, i As Integer

arr = Split(r.ReadLine, " ")

For i = LBound(arr) To UBound(arr)

MsgBox(arr(i))

Next

－－－－－－－－－－－－－－－－－－－－

還是用readline,如果你要提取兩個(gè)非連續(xù)空格之間的字符串，可以用

Dim arr() As String

arr = Split(r.ReadLine, " ")

arr()數(shù)組里就存了你要的單詞。

快要下班了，明后天不上班，如果16：30之前還搞不定就要下個(gè)星期1了。

----------------------------------

哈，是我的失誤沒(méi)想到還有可能有半角的日文。

用utf-8就OK了，代碼如下：

（文本文件存的時(shí)候不能存成ansi，要存成utf-8，或是Unicode）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim r As System.IO.StreamReader

r = New System.IO.StreamReader("c:\a.txt", System.Text.Encoding.GetEncoding("utf-8"))

Do While Not r.EndOfStream

MsgBox(r.ReadLine)

Loop

End Sub

vb點(diǎn)虐 朗讀

Interop.SpeechLib.dll 引用后,朗讀不限制

Me.Cursor = Cursors.WaitCursor

Dim oVoice As New SpeechLib.SpVoice

Dim cpFileStream As New SpeechLib.SpFileStream

oVoice.Voice = oVoice.GetVoices.Item(cmbVoices.SelectedIndex)

oVoice.Volume = trVolume.Value

oVoice.Speak(txtSpeach.Text, SpeechLib.SpeechVoiceSpeakFlags.SVSFDefault)

oVoice = Nothing

Me.Cursor = Cursors.Arrow

VB點(diǎn)虐 讀取文本文件？

1、實(shí)現(xiàn)上傳按鈕方法代碼。

2、判斷圖片對(duì)象是否為空代碼。

3、取得數(shù)據(jù)庫(kù)字段 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ò)誤日志中

使巧巧讀書(shū)網(wǎng)的編輯能夠讀取錯(cuò)誤日志

記得以前使用vb 的時(shí)候 對(duì)文本文件的操作挺麻煩的 特別是在寫文件的時(shí)候 需要區(qū)分什么順序文件 隨機(jī)文件 很教材都專門針對(duì)文本文件的讀寫開(kāi)辟了一個(gè)章節(jié)來(lái)講解 夠麻煩的了 現(xiàn)在使用 net讀寫文本文件 因?yàn)闀r(shí)間倉(cāng)促 沒(méi)來(lái)得及細(xì)看MSDN 同時(shí)受到 的思路影響 把問(wèn)題復(fù)雜化了 在追加記錄到文本文件尾部的時(shí)候就寫不下去了 后來(lái)仔細(xì)看了一下MSDN中例子 問(wèn)題終于得到了解決

好了下面進(jìn)入正題 分別把中對(duì)文本文件進(jìn)行讀和寫的通用操作做個(gè)示例 免得后來(lái)新手多走彎路

我們這里是對(duì)文件流進(jìn)行操作 所以模塊前面要加上

Imports System IO

寫操作

使用System IO的StreamWriter 下面是代碼

Dim strFilePath As String = SaveFileDialog FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以追加的方式打開(kāi)指定文件

For i = To j

temp = i ToString

sw WriteLine（temp）

sw Flush（）

Next

sw Close（）

sw = Nothing

首先要說(shuō)明的是構(gòu)造函數(shù)new

Public Sub New（path append Encoding）

path 要打開(kāi)文件的完整路徑 如果文件不存在則自動(dòng)建立一個(gè)新的文件

append 缺省值為false 指示是否以追加方式打開(kāi)指定文件 false——如果存在path指定的文件 則覆蓋原文件 否則建立一個(gè)新文件 true——如果存在path指定的文件 則打開(kāi)該文件 以追加數(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 要打開(kāi)文件的完整路徑 如果文件拋出一個(gè)錯(cuò)誤

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

lishixinzhi/Article/program/net/201311/11973

本文題目：vb點(diǎn)虐 朗讀文本 vbs讀文字
網(wǎng)頁(yè)網(wǎng)址：http://chinadenli.net/article16/ddipdgg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、網(wǎng)站制作、企業(yè)網(wǎng)站制作、虛擬主機(jī)、移動(dòng)網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)