zoukankan      html  css  js  c++  java
  • vb用fso读写文本文件

    '需要引用 Microsoft Scripting Runtime
    Dim fso As New FileSystemObject
    Dim oText As TextStream
    Dim fileName$
    
    
    Private Sub Form_Load()
        Dim s$
    
        fileName = App.Path & "\save.txt"    '得到选择的文件
        If Not fso.FileExists(fileName) Then
            fso.CreateTextFile fileName
        End If
        Set oText = fso.OpenTextFile(fileName, ForReading, False, TristateUseDefault)
    
        While Not oText.AtEndOfLine
            s = oText.ReadLine
            List1.AddItem s, 0
        Wend
        oText.Close
        List1.AddItem "运行时间: " & Now, 0
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
      Set oText = fso.OpenTextFile(fileName, ForWriting, False, TristateUseDefault)
      Dim i%
      For i = List1.ListCount - 1 To 0 Step -1
        oText.WriteLine List1.List(i)
      Next
      oText.Close
    End Sub
  • 相关阅读:
    势函数的构造
    10.29模拟赛总结
    10.29vp总结
    10.25模拟赛总结
    10.24模拟赛总结
    线段树练习
    一键挖矿
    P1972 [SDOI2009]HH的项链
    P3901 数列找不同
    P5546 [POI2000]公共串
  • 原文地址:https://www.cnblogs.com/mitang/p/3063220.html
Copyright © 2011-2022 走看看