不要用do until，用for:
创新互联专业为企业提供雨湖网站建设、雨湖做网站、雨湖网站设计、雨湖网站制作等企业网站建设、网页设计与制作、雨湖企业网站模板建站服务，十年雨湖做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Dim arr() As String, i As Integer
arr = Split(r.ReadLine, " ")
For i = LBound(arr) To UBound(arr)
MsgBox(arr(i))
Next
－－－－－－－－－－－－－－－－－－－－
还是用readline,如果你要提取两个非连续空格之间的字符串，可以用
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字节数组
打开格式转换
进入软件，然后打开视频格式转换功能。
2/3
导入视频
进入转换功能后，选择一段视频，然后点击下一步。
完美动力怎么剪辑视频-CG行业全能人才孵化基地
值得一看的视频相关信息推荐
完美动力广告
3/3
设置编码格式
视频导入成功后，首先设置目标编码格式，然后点击开始转换即可。
