不要用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
设置编码格式
视频导入成功后,首先设置目标编码格式,然后点击开始转换即可。
网页题目:vb.net文件编码 vb文件号
文章地址:https://www.cdcxhl.com/article10/hgdogo.html
成都网站建设公司_创新互联,为您提供做网站、网站导航、响应式网站、搜索引擎优化、网站设计公司、Google
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联