我无法识别并打开包含旧VB中编程的应用程序数据的文件。
我在源代码中找到了一个打开位置和数据上传文件的子程序：
***** LOCATION SUBJECT AND LOADING TEST DATA *********
LOADING:
GoSub ABREARQ
If Val(BAKCP$) >= Val(NI$) And Val(BAKCP$) <= Val(NF$) Then
GoSub LIMPA
Else
GoSub LIMPA
Get #1, 1, GEALL: ORD1& = Val(GEALL.FB)
EX& = 0
Open Path$ + "NSALL.IND" For Random Shared As #5 Len = Len(NSALL)
NR& = LOF(5) / Len(NSALL)
If ORD1& > (NR& + 2) Then
For IX& = ORD1& - 1 To NR& + 2 Step -1
Get #1, IX&, GEALL
If Val(BAKCP$) >= Val(GEALL.NI) And Val(BAKCP$) <= Val(GEALL.NF) Then
EX& = IX&: IX& = NR& + 2
End If
Next
End If
If EX& = 0 Then
BR& = 1: TR& = NR&
Do Until (TR& < BR&)
MR& = Int((TR& + BR&) / 2)
Get #5, MR&, NSALL
If Val(BAKCP$) >= NSALL.NSI And Val(BAKCP$) <= NSALL.NSF Then
EX& = NSALL.RE
Exit Do
ElseIf Val(BAKCP$) > NSALL.NSI Then
BR& = MR& + 1
Else
TR& = MR& - 1
End If
Loop
End If
Close #5
If EX& <> 0 Then
Get #1, EX&, GEALL
FB$ = GEALL.FB: NI$ = GEALL.NI: NF$ = GEALL.NF: NP$ = GEALL.NP: NP0$ = GEALL.NP
REGDT& = EX& - 1: REGRS& = Val(GEALL.RS)
GoSub CARGADT
MSG$ = ""
Else
For Y = 1 To 12: For X = 1 To DT%(0, Y): DT$(X, Y) = "": Next: Next
FB$ = "": NI$ = "": NF$ = "": NP$ = "": NP0$ = ""
REGDT& = 0: REGRS& = 0
MSG$ = " N„o cadastrado/inex.! "
BAKCP$ = " ": Close: Return
End If
End If
以下是打开文件的例程：
ABREARQ:
Open Path$ + "GEALL.ENS" For Random Shared As #1 Len = Len(GEALL)
Open Path$ + "DTALL.ENS" For Random Shared As #2 Len = Len(DTALL)
Open Path$ + "RSALL.ENS" For Random Shared As #3 Len = Len(DR)
Open Path$ + "CFALL.ENS" For Random Shared As #4 Len = 1080
FIELD #4, 1075 AS CFALL$, 5 AS PROX$
Return
我认为内存文件是扩展名为.ENS的文件，但是当我以文本格式打开它们时，会出现随机和杂乱的数字。
还有其他方法可以打开这些ENS文件吗？
提前致谢