VB读写TXT文件

VB读写TXT文件



'新建文件 输入内容 如果文件存在侧覆盖内容
'For后面的参数表示以何种方式打开文件
'Input是读取，Output是覆盖写入，Append是追加写入
Dim strFileName As String  '文件名
Dim lngHandle As Long      '句柄
Dim strWrite As String     '要写入的文本内容

strFileName = "c:\w.txt"
lngHandle = FreeFile()     '取得句柄
strWrite = "这些文字将被写入文件。"
Open strFileName For Output As lngHandle
Print #lngHandle, strWrite '写入文本
Close lngHandle

======================================================

'读文件示例
取读文件位置 = "C:\MeiLei_UG_WG\MeiLei_UG_WG\CY.ini"
Text1 = ""
Open 取读文件位置 For Input As #1      '【打开要取读的文件】
Do While Not EOF(1)                    '【循环每一行】
Line Input #1, temp                    '【去读内容赋值】
Text1 = Text1 & temp  & vbCrLf
Loop                                   '【结束循环】
Close #1



’【取读文件任意几行内容】并【赋值】 且【检验文件有几行】

取读文件位置 = App.Path & "\1.txt"   '取读文件位置
i=0
Open 取读文件位置 For Input As #1     
Do While Not EOF(1)                  
Line Input #1, temp                  
i = i + 1                           
If i = 1 Then 第一行内容 = temp    ' 取读第一行内容
If i = 2 Then 第二行内容 = temp    ' 取读第二行内容
Loop                                 
text2 = i ’【检验文件有几行】【可去掉】
Close #1  
_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/