文件输入输出.bas

钢筋混凝土框架结构设计计算源程序

Attribute VB_Name = "Module2"
Option Explicit
Sub 输入文件(Filename As String)
    Dim i As Integer, j As Integer
    On Error GoTo L
    '启动错误处理程序，且从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。
    Open Filename For Input As #1
    'Open pathname For mode  As [#]filenumber [Len=reclength]
    'pathname 必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器
    'mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件
    'filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。
    Input #1, Nodg, Ncell, Nres
    'Input #filenumber, varlist 从已打开的顺序文件中读出数据并将数据指定给变量。
    'filenumber 必要。任何有效的文件号。
    'varlist 必要。用逗号分界的变量列表，将文件中读出的值分配给这些变量；这些变量不可能是一个数组或对象变量。但是，可以使用变量描述数组元素或用户定义类型的元素。
    For i = 1 To Ncell
        For j = 1 To 2
            Input #1, NGN(i, j)
        Next j
    Next i
    For i = 1 To Ncell
        Input #1, Ld(i).Pq, Ld(i).s, Ld(i).Po
    Next i
    For i = 1 To Ncell
        For j = 1 To 3
            Input #1, EAI(i, j)
        Next j
    Next i
    For i = 1 To Nodg
        For j = 1 To 2
            Input #1, XY(i, j)
        Next j
    Next i
    For i = 1 To Nodg
        For j = 1 To 3
            Input #1, XYM(i, j)
        Next j
    Next i
L:      Close #1
End Sub
Sub 输出文件(Filename As String)
    Dim i As Integer, j As Integer
    Open Filename For Output As #1
    Write #1, Nodg, Ncell, Nres
    For i = 1 To Ncell
        For j = 1 To 2
            Write #1, NGN(i, j)
        Next j
    Next i
    For i = 1 To Ncell
        Write #1, Ld(i).Pq, Ld(i).s, Ld(i).Po
    Next i
    For i = 1 To Ncell
        For j = 1 To 3
            Write #1, EAI(i, j)
        Next j
    Next i
    For i = 1 To Nodg
        For j = 1 To 2
            Write #1, XY(i, j)
        Next j
    Next i
    For i = 1 To Nodg
        For j = 1 To 3
            Write #1, XYM(i, j)
        Next j
    Next i
    Close #1
End Sub
Sub 读梁M()
    Dim i
    Open Fname & "梁不利" For Random As #1 Len = Len(固端力)
        For i = 柱总数 + 1 To Ncell
            Get #1, i - 柱总数, 杆端力(i)
        Next i
    Close #1
End Sub