不要用do until,用for:
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供雨湖網站建設、雨湖做網站、雨湖網站設計、雨湖網站制作等企業(yè)網站建設、網頁設計與制作、雨湖企業(yè)網站模板建站服務,十年雨湖做網站經驗,不只是建網站,更提供有價值的思路和整體網絡服務。
Dim arr() As String, i As Integer
arr = Split(r.ReadLine, " ")
For i = LBound(arr) To UBound(arr)
MsgBox(arr(i))
Next
--------------------
還是用readline,如果你要提取兩個非連續(xù)空格之間的字符串,可以用
Dim arr() As String
arr = Split(r.ReadLine, " ")
arr()數組里就存了你要的單詞。
快要下班了,明后天不上班,如果16:30之前還搞不定就要下個星期1了。
----------------------------------
哈,是我的失誤沒想到還有可能有半角的日文。
用utf-8就OK了,代碼如下:
(文本文件存的時候不能存成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
Imports System.Text
Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
Dim bytes() As Byte
bytes = Encoding.UTF8.GetBytes(strData)
Return bytes
End Function
說明:strData參數是GB2312字符串,函數返回UTF8字節(jié)數組
打開格式轉換
進入軟件,然后打開視頻格式轉換功能。
2/3
導入視頻
進入轉換功能后,選擇一段視頻,然后點擊下一步。
完美動力怎么剪輯視頻-CG行業(yè)全能人才孵化基地
值得一看的視頻相關信息推薦
完美動力廣告
3/3
設置編碼格式
視頻導入成功后,首先設置目標編碼格式,然后點擊開始轉換即可。
網頁題目:vb.net文件編碼 vb文件號
文章地址:http://chinadenli.net/article10/hgdogo.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供做網站、網站導航、響應式網站、搜索引擎優(yōu)化、網站設計公司、Google
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)