关于文件读取VB代码,求解析

t_kong 发布于 2015/03/27 14:40
阅读 152
收藏 0

如题,以下代码有什么作用,菜鸟我要把她专成C#,但是连看都看不懂,请各位大神帮忙解析一下,感谢。

Public Type m_Sort
    CriteriaNo                             As String * 2
    ID                                  As String * 8
    TimeInput                              As String * 19

End Type

Public G_SortNo(1 To 15)           As m_Sort

Public Function LoadA() As Boolean
    Dim intFile As Integer
    Dim intTotal As Integer
    Dim T_TmpG As m_Sort
    Dim T_TmpG As m_Sort

    intFile=FreeFile()
    Open Path For Random As #intFile Len=Len(T_TmpG2)	'Path是一個後綴名為.BCM的文件的路徑,如D:\Case.BCM
    intTotalCount LOF(intFile)\Len(T_TmpG2)

    For int I=1 To 15
        If intI > intTotal Then
            Put #intFile, intI, T_TmpG2
            GoTo jump1
        End If

        Get #intFile, intI, T_TmpG
        G_SortNo(intI)=T_TmpG

    jump1:
        Next
        Close #intFile

        Exit Function

End Function



加载中
返回顶部
顶部