VB 读写TXT文本文件函数

最新推荐文章于 2018-08-11 13:19:52 发布
最新推荐文章于 2018-08-11 13:19:52 发布
阅读量1.1k 收藏 3
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/miaozk2006/article/details/82417029
版权
博客介绍了VB中用于读取和写入TXT文本文件的两个函数：GetTXT用于读取，SetTXT用于写入。提供了相关文章链接，涵盖了VB处理文本文件的各种方法，包括UTF-8编码的读写及文本文件的其他操作。
摘要由CSDN通过智能技术生成

以下两个函数分别读取TXT文本文件与写入文件

Private Function GetTXT(Path As String) '读取文本
    Open Path For Input As #1
    GetTXT = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
End Function

Private Sub SetTXT(Strl As String, Path As String) '写入文本
    Open Path For Output As #1
    Print #1, Strl;
    Close #1
End Sub
 

摘自：网络整理

相关文章参考：

※VB输入文本文件实现右对齐

※VB计算文本文件的行数

※VB打开文本文件各种方法

※vb：读写文本文件

※vb UTF文本文件访问

※简述UTF－8编码原理及其文本文件的读写技术【转】

※VB 读写TXT文本文件函数

※VB 判断是否文本文件

※VB 按指定编码格式写入文本文件

 
 
 
 
★VB部分相关文章推荐：★
 
 
 
   
 
☆VB 读写TXT文本文件函数
 
 
☆



                

        

        

    

  


        

            

                    
                      最低0.47元/天 解锁文章
                        
                    
            

        

    

      

        

            

              
                
                  miaozk2006
                
              
            

            

                关注
              
            

        

        

          
      

      









                



	

		

			

				
					
获取对象的接口信息(方法/属性/事件)(VB6代码)

				
			

			

				

					miaozk2006的专栏
				

				

					08-29
					
					639
					
				

			

		

		

			
				
要不是WS的超级绿豆提起这东西,我还不知道呢....真是个好玩意!!能列出一个对象的接口,包括方法,属性,事件.....微软直接做了啊.记录一下,以后要用到时免得忘了:  Option Explicit'引用Library TLI' C:\WINDOWS\system32\TLBINF32.DLL' TypeLib InformationPrivate Sub Form_Load()Dim oTL...

			
		

	



                

              
                



	

		

			

				
					
VB 文件 最後一行 倒數第二行

				
			

			

				

					专注的力量
				

				

					12-07
					
					1804
					
				

			

		

		

			
				
1
Private Sub Command4_Click()
    Text1.Text = ""
    CommonDialog1.Filter = "*.txt 文件|*.txt"
    CommonDialog1.ShowOpen
        Open CommonDialog1.FileName For Input As #1
            Do While

			
		

	



                


  
              

                


	

		

			

				
					
VB6.0 UTF-8转换GB2312函数

				
			

			

				

					04-02
				

			

		

		

			
				
VB6.0 UTF-8转换GB2312函数本人收集了一些技巧供大家参考，希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.

			
		

	





	

		

			

				
					
在VB中任意设置ListView控件的ListItem的背景颜色

				
			

			

				

					tiger777的专栏
				

				

					12-19
					
					5167
					
				

			

		

		

			
				
    Private Sub SetListItemColor()Sub SetListItemColor() If mlvwPlayList.ListItems.Count = 0 Then Exit Sub If picBgBox Is Nothing Then Err.Raise vbObjectError + 1001, "Object PlayList", "Pro

			
		

	



		

			
		



	

		

			

				
					
Asp中有关字符编码转换的几个函数

				
			

			

				

					weixin_33711647的博客
				

				

					02-28
					
					287
					
				

			

		

		

			
				

<%1、'UTF转GB---将UTF8编码文字转换为GB编码文字function UTF2GB(UTFStr) 
for Dig=1 to len(UTFStr)   '如果UTF8编码文字以%开头则进行转换  if mid(UTFStr,Dig,1)="%" then      'UTF8编码文字大于8则转换为汉字    if len(UTFStr) >= Dig+8 then...

			
		

	





	

		

			

				
					
UTF-8与GB2312之间的互换

				
			

			

				

					asita88的专栏
				

				

					01-28
					
					468
					
				

			

		

		

			
				
相信一定有不少的程序开发人员时常会遇到字符编码的问题，而这个问题也是非常让人头痛的。因为这些都是潜在的错误，要找出这些错误也得要有这方面的开发经验才行。特别是在处理xml文档时 ，该问题的出现就更加的频繁了，有一次用java写服务器端程序，用vc写客户端与之交互。交互的协议都是用xml写的。结果在通讯时老是发现数据接受不正确。纳闷！于是用抓取网络数据包工具抓取数据，后来才发现原来是java上xml的头是这样的,而vc上默认的是GB2312。所以一遇到汉字数据就不正确了。去网上找资料，这方面的文章好象特别少，

			
		

	





	

		

			

				
					
vb.net 读取txt文件的几种方式

				
			

			

				

					11-08
				

			

		

		

			
				
在VB.NET中，读取TXT文件是常见的任务，可以用于数据处理、日志分析等多种场景。下面我们将详细探讨几种不同的方法来实现这个功能。  1. **使用StreamReader**  使用`System.IO.StreamReader`类是最基本的读取文本...

			
		

	





	

		

			

				
					
data_vb.rar_data vb_vb文件读取_vb读取文件_读取文本_读取文本文件

				
			

			

				

					09-19
				

			

		

		

			
				
这个示例程序演示了如何使用VB来读取文本文件并将其转换为数据文件格式。  首先，让我们深入理解VB中的文件读取过程。在VB中，我们可以使用`OpenTextFileReader`方法打开一个文本文件进行读取。此方法属于`...

			
		

	





	

		

			

				
					
vb将文本框内容保存到txt文本.rar_VB  TXT 文本_VB保存txt文本_vb TXT文本框_vb6_vb保存文本

				
			

			

				

					09-23
				

			

		

		

			
				
2. **保存到TXT文件**: 要将文本框的内容保存到TXT文件，首先需要创建一个`FileStream`对象，然后使用`StreamWriter`来写入文本。VB6中没有内置的`StreamWriter`类，但我们可以使用`FreeFile`函数获得一个可用的文件...

			
		

	





	

		

			

				
					
VB listview导出数据到EXCEL

				
			

			

				

					03-01
				

			

		

		

			
				
由Listview中的数据直接导入到EXCEL并打开，并显示表头，可以直接加入到开发代码中去而省去单独编写代买的精力跟时间。

			
		

	





	

		

			

				
					
VB把Listview中显示的内容导出到Excel中.rar

				
			

			

				

					07-10
				

			

		

		

			
				
VB把Listview中显示的内容导出到Excel中，用到了控件：MSCOMCTL.OCX和COMDLG32.OCX，我觉得挺实用的一个报表显示实例。

			
		

	





	

		

			

				
					
UTF-8转换GB2312函数[UTF-8转换GB2312函数]-精品源代码

				
			

			

				

					10-11
				

			

		

		

			
				
UTF-8转换GB2312函数[UTF-8转换GB2312函数]-精品源代码

			
		

	





	

		

			

				
					
VB将Listview数据导出到Excel表格的实例

				
			

			

				

					05-16
				

			

		

		

			
				
VB将Listview数据输出到Excel表格的实例，用到了控件：MSCOMCTL.OCX和COMDLG32.OCX，仅供学习者参考一下。

			
		

	





	

		

			

				
					
从 Listview 中导出 text,csv,html格式文件[Clistview.rar]-精品源代码

				
			

			

				

					10-11
				

			

		

		

			
				
从 Listview 中导出 text,csv,html格式文件[Clistview.rar]-精品源代码

			
		

	





	

		

			

				
					
VB读取TXT文件内容.rar

				
			

			

				

					07-10
				

			

		

		

			
				
在VB（Visual Basic）编程环境中，读取TXT文件内容是一项基本操作，对于处理文本数据尤其常见。本示例提供了一个简单实例，展示了如何利用VB来读取TXT文件。"VB读取TXT文件内容.rar"是一个压缩包，其中包含了实现这...

			
		

	





	

		

			

				
					
VB URL的编解码源码 GB2312 UTF-8编解码

				
			

			

				

					激萌の小宅的博客
				

				

					01-06
					
					1931
					
				

			

		

		

			
				
界面如下



源码如下




'UTF-8 URL解码
Public Function UTF8_UrlDecode(ByVal URL As String)
    Dim B, ub   ''中文字的Unicode码(2字节)
    Dim AA, BB
    Dim UtfB    ''Utf-8单个字节
    Dim UtfB1, UtfB2, UtfB3 ''Utf-8码的三...

			
		

	





	

		

			

				
					
VBA把GB2312 转换成UTF-8和UTF-8 without BOM

				
			

			

				

					weixin_42462449的博客
				

				

					08-11
					
					4327
					
				

			

		

		

			
				
最近需要把用户的EXCEL转换成CSV, 然后导入OTM (Oracle transportation management )系统。

OTM 使用UFT8-8编码，请注意UFT-8有两个子集，UFT-8， UTF-8 without BOM. 
下面的代码就是用于UTF-8,或者UTF-8 without BOM, 其两者区别就是文件头部有没有两个字节。

Sub WriteANSItoUF8...

			
		

	





	

		

			

				
					
VB6做了个简单的ListView内容导出函数

				
			

			

				

					diaoxuejin1658的博客
				

				

					06-14
					
					288
					
				

			

		

		

			
				
Private Type LV_ITEM mask As Long iItem As Long iSubItem As Long state As Long stateMask As Long pszText As String cchTextMax As Long iImage As Long lParam As Long i...

			
		

	





	

		

			

				
					

				
			

			

				

					
				

			

		

		

			
				

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

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

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

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

              

            

          

      

      余额充值