VB 读取UTF-8编码文件函数

最新推荐文章于 2024-06-11 16:31:28 发布
最新推荐文章于 2024-06-11 16:31:28 发布
阅读量1.7k 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/miaozk2006/article/details/82416974
版权
这是一个VB函数示例，用于读取UTF-8编码的文件内容。通过创建ADODB.Stream对象，将文件二进制数据转换为指定字符编码的字符串。在Form_Load事件中调用函数，将读取的内容显示在Text1控件中。
摘要由CSDN通过智能技术生成

参数：Path 文件路径
Unicode 文件编码
Public Function File_get_contents(Path As String, Optional Unicode = "GB2312")

Dim arrBinary() As Byte

Open Path For Binary As #1
ReDim arrBinary(LOF(1) - 1)
Get #1, , arrBinary()
Close #1

File_get_contents = BytesToBstr(arrBinary, Unicode)

End Function

Public Function BytesToBstr(Binary, Unicode)
Dim objstream As Object
Set objstream = CreateObject("ADODB.Stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write Binaryc
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Unicode
BytesToBstr = objstream.ReadText
objstream.Close
End Function

'读取UTF-8编码文件测试
Private Sub Form_Load()
Text1.Text = File_get_contents("c:\1.txt", "UTF-8")
End Sub

 
  
 
 
  
 
 
 
 
 
 
 
摘自：网络整理
 
 
 
 
★VB部分相关文章推荐：★
 
 
 
   
 
☆VB 读写TXT文本文件函数
 
 
☆VB 提取TextBox 文本框中指定一行字符串
 
 
☆VB 获取汉字拼音的首字母
 
 
☆VB 汉字字符串转换成拼音
 
 
☆VB判断指定名字的进程是否存在函数
 
 
☆VB 两种方法实现热键
 
 
☆VB 使用SendMessage枚举文件与目录
 
 
☆VB 二进制数组与十六进制字符串相互转



                

        

        

    




        

            

                    
                      最低0.47元/天 解锁文章
                        
                    
            

        

    

      

        

            

              
                
                  miaozk2006
                
              
            

            

                关注
              
            

        

        

          
    
            
  • 
              
                
                
                
                
                      0
                
              
              
    点赞
    
            
    • 
            
  • 
              
                
                
                
              
              
    踩
    
            
    • 
            
  • 
              
                
                
                
                
                    0
                
              
              
    
                
    
                  
                    收藏
                  
                
    
              
    
              
    
                
    
                  觉得还不错?
                  
                    一键收藏
                  
                 
                
    
              
    
            
    • 
          
  • 
            
    
              
              
            
    
              
              
              
                    0
              
            
            
    评论
    
          
    • 
          
  • 
          
    • 
          
  • 
            
              
            
              
    
            
              
                
            
    
          
    • 
        

      

      










                



	

		

			

				
					
Utf-8编码与解码(vb6代码)

				
			

			

				

					03-01
				

			

		

		

			
				
 - 然后，可以使用`ADODB.Stream`对象将字节数组写入文件，以保存UTF-8编码的文本。  2. **解码过程**：  - 读取文件内容到字节数组，可以使用`ADODB.Stream`对象的`Read`方法。  - 确定字节序是否为UTF-8的标志（前...

			
		

	



                

              
                



	

		

			

				
					
用RtlAdjustPrivilege来调整进程权限(VB6.0代码)

				
			

			

				

					miaozk2006的专栏
				

				

					08-29
					
					747
					
				

			

		

		

			
				
论坛上有朋友说起RtlAdjustPrivilege这个函数,就查了一下,写了个声明与调用示例出来,方便下次调用.     程序代码  Option ExplicitPrivate Declare Function RtlAdjustPrivilege Lib "ntdll.dll" ( _    ByVal Privilege As String, _    ByVal bEnable As L...

			
		

	



                


  
              

                


	

		

			

				
					
VB6存取UTF-8文件

				
			

			

				

					greatbody的专栏
				

				

					07-31
					
					3871
					
				

			

		

		

			
				
目录目录
功能介绍
代码演示功能介绍这个代码可以将VB变量的Unicode字符存为UTF-8格式的文本文件。代码演示'工程要引用  Microsoft ActiveX Data Objects 2.8，下面两个通用方法建议放在模块中
Public Sub SaveAsUTF8(ByVal Text As String, ByVal FileName As String)
  Dim oStream

			
		

	





	

		

			

				
					
VBA 读取UTF-8文件

					
最新发布

				
			

			

				

					记录
				

				

					06-11
					
					250
					
				

			

		

		

			
				
VBA 读取UTF8格式文本文件

			
		

	



		

			
		



	

		

			

				
					
如何在VB 中读取 UTF-8 格式的文件? 

				
			

			

				

					James.Duan@CSDN
				

				

					05-20
					
					3956
					
				

			

		

		

			
				
这个问题因扰了我很久，先在VB6 中测试多种方法，但都没有成功，最后先使用VB.Net 产生一个转换用的dll ，然后再在VB6 中调用此DLL,  以前是这样解决的。可以，有时也有问题，也是很笨的方法。最终找到一个很简单的方法，如下，使用adodb.stream  可很方便的解决。(其中参数为UTF-8格式文件的路径和文件名；返回一个字符串)Public Function ReadU

			
		

	





	

		

			

				
					
VB关机程序--包括注销、重启、关机

				
			

			

				

					hbqjzx的专栏
				

				

					02-27
					
					4575
					
				

			

		

		

			
				
（在Form的unload事件里)
(如果你的UNLOAD事件里有其他代码，请在最后一行加上代码)
shell"shutdown -r -t 0"
不行用这句
'声明；
Private Function RtlAdjustPrivilege Lib "ntdll" (ByVal Privilege As Long, ByVal Newvalue As Long, ByVal NewThr

			
		

	





	

		

			

				
					
VB中如何把资源器的文件释放出来，并且允许。。如把1.bat载入资源编辑器

				
			

			

				

					bolg
				

				

					07-27
					
					835
					
				

			

		

		

			
				
VB中如何把资源器的文件释放出来，并且允许。。如把1.bat载入资源编辑器，为101.如何点击command1释放在C盘的根目录下。同时并运行1.bat Dim temp() As Byte  temp = LoadResData(101, "CUSTOM")  'icoOpen

			
		

	





	

		

			

				
					
VB6.0 UTF-8转换GB2312函数

				
			

			

				

					04-02
				

			

		

		

			
				
以下是一个简单的VB6.0函数示例，用于将UTF-8编码的字符串转换为GB2312编码：  ```vb Function Utf8ToGb2312(ByVal utf8Str As String) As String  Dim utf8Bytes() As Byte  Dim gb2312Bytes() As Byte  Dim i As ...

			
		

	





	

		

			

				
					
ASP生成UTF-8编码的代码

				
			

			

				

					10-30
				

			

		

		

			
				
然后，设置其属性以确保文件以UTF-8编码保存：`.Type`设为2表示文本流，`.Mode`设为3表示打开/读取/写入模式，`.Charset`设为"utf-8"来指定字符集。通过`.WriteText`方法将内容写入流，最后通过`.SaveToFile`方法将...

			
		

	





	

		

			

				
					
VBA Fans读取和写入UTF-8格式文本文件

				
			

			

				

					07-26
				

			

		

		

			
				
由于VBA默认使用ASCII编码，所以读取UTF-8文件时需要额外的处理。一个常见的方法是先将UTF-8文件转换为字节流，然后解码为字符串。以下是一个示例：   ```vba  Dim fileNum As Integer  Dim byteArr() As Byte  ...

			
		

	





	

		

			

				
					
VBS实现GB2312,UTF-8,Unicode,BIG5编码转换工具

				
			

			

				

					09-05
				

			

		

		

			
				
本话题涉及的是一个使用VBS编写的编码转换工具，它可以将文本文件在GB2312、UTF-8、Unicode（UCS-2）和BIG5这四种编码之间进行转换。  首先，GB2312是一种常用的简体中文编码标准，主要应用于中国大陆。UTF-8是一种...

			
		

	





	

		

			

				
					
你居然告诉我VB6释放资源文件有BUG，官方都没得办法修复，还好我最后搞定了！

				
			

			

				

					网管小贾的博客
				

				

					02-05
					
					1010
					
				

			

		

		

			
				
你居然告诉我VB6释放资源文件有BUG，官方都没得办法修复，还好我最后搞定了！

			
		

	





	

		

			

				
					
VB6的UTF8编码解码

				
			

			

				

					weixin_34208185的博客
				

				

					06-27
					
					1726
					
				

			

		

		

			
				
'UTF-8编码
PublicFunctionUTF8Encode(ByValszInputAsString)AsString
DimwchAsString
DimuchAsString
DimszRetAsString
DimxAsLong
DiminputLenAsLong
Dimn...

			
		

	





	

		

			

				
					
VB超级模块函数:VB读写记事本-防止乱码支持UTF-8和GB2312编码

				
			

			

				

					追逐光芒，追随内心
				

				

					09-18
					
					1226
					
				

			

		

		

			
				
Public Function 写入记事本(ByVal txtpath As String, ByVal txt As String)
    On Error Resume Next
        Open txtpath For Output As #1       '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
    
        Print #1, txt    '写入Text1的Text内容
    
        Close #1     '关闭

End Functi.

			
		

	





	

		

			

				
					
VB打开文本文件各种方法

				
			

			

				

					miaozk2006的专栏
				

				

					03-20
					
					1159
					
				

			

		

		

			
				

       打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此，笔者将自己搜集到的几种方法无私地奉献出来(-_-)，供各位参考。同时期盼大家也来参与，借VB编程乐园这块宝地互相交流。如您有这份心，土人在这里先说声谢谢！　　下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。  方法一:    用定长的Strin...

			
		

	





	

		

			

				
					
VB：如何读出unicode编码的txt文件内容

				
			

			

				

					rainstormmaster的专栏
				

				

					05-03
					
					6617
					
				

			

		

		

			
				
其实，这个问题很简单 ，可偏偏很多人不知道，于是写了这个先用2进制方式打开文件，读出数据到byte数组中，然后用copymemory去掉文件头（头两个字符分别是FF   FE（16进制））得到一个新的byte数组，最后利用strconv函数即可，下面给出代码：Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "Rt

			
		

	





	

		

			

				
					
VB 调用资源文件例子(文件打包与释放)

				
			

			

				

					資料為我做事
				

				

					03-09
					
					777
					
				

			

		

		

			
				


Option ExplicitDim AppEXE() As ByteDim FileNum As LongPrivate Sub Test()'将自定义资源中101号资源读入数组AppEXE = LoadResData(101, "CUSTOM")FileNum = FreeFile'以二进制方式写（生成）temp1.exe到当前目录Open "C:\Test.exe" For Binar...

			
		

	





	

		

			

				
					
VB 进程权限提升 代码

				
			

			

				

					barenx的专栏
				

				

					03-29
					
					1994
					
				

			

		

		

			
				
Attribute VB_Name = "Enable_Privileges"Option ExplicitOption Base 0Powered by barenxPrivate Declare Sub CloseHandle()Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)Private Declare Function L

			
		

	





	

		

			

				
					
VB字符与 UTF8格式互转

				
			

			

				

					Yfw的博客
				

				

					06-06
					
					8623
					
				

			

		

		

			
				
在VB模块文件中加入下面代码：
Private Declare Function MultiByteToWideChar Lib "kernel32 " (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharS...

			
		

	





	

		

			

				
					
VB6将中文保存为UTF-8

				
			

			

				

					04-24
				

			

		

		

			
				
对于VB6来说，将中文保存为UTF-8编码需要进行一些转换操作。首先需要使用转换函数将中文字符串转换为UTF-8字节序列，然后再将字节序列保存到文件中。具体操作可以参考以下代码：

Dim str As String
Dim b() As Byte

'将中文字符串转换为UTF-8字节序列
str = "中文"
b = StrConv(str, vbFromUnicode)
b = StrConv(b, vbUTF8)

'将字节序列保存到文件中
Open "C:\test.txt" For Binary As #1
Put #1, , b
Close #1

注意，这段代码仅仅是将中文字符串保存为UTF-8编码，并没有涉及到编码转换之后的字符集问题，因此在读取UTF-8编码的文件时，需要再次进行字符集的转换。

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值