basic - 破译 BASIC 脚本

Question

我继承了一个 BASIC 脚本，我正在尝试将其重写为 Python。我不知道 BASIC，甚至不知道这是哪个版本的 BASIC。是 Visual Basic 吗？请帮我翻译这段代码。

'County Number, District Number, District Name 
j = 0
OPEN "" + year.base$ + "dist.csv" FOR INPUT AS #1
INPUT #1, a0$, a1$, a2$, a3$, a4$, a5$, a6$, a7$  
DO WHILE NOT EOF(1)  
j = j + 1  
  INPUT #1, a0$, a1$, a2$, a3$, a4$, a5$, a6$, a7$  
  conumbind(j) = VAL(a0$)  
  distnumbind(j) = VAL(a1$)  
  distnameind$(j) = a2$  
  rate2(j) = VAL(a3$)  
  rate34(j) = rate2(j) * 2  
LOOP  
CLOSE #1  
iTotal2 = j 

Answer 1

初始化计数器。

j = 0

打开文件进行阅读。

OPEN "" + year.base$ + "dist.csv" FOR INPUT AS #1

在第一行读入8个变量。这些都没有用。我假设它们是标题。

INPUT #1, a0$, a1$, a2$, a3$, a4$, a5$, a6$, a7$  

遍历文件的其余部分。

DO WHILE NOT EOF(1)  

增加计数器。

  j = j + 1  

将文件的下一行读入8个变量。

  INPUT #1, a0$, a1$, a2$, a3$, a4$, a5$, a6$, a7$  

将一些字段分配给数组元素(VAL 函数转换为数值)。

  conumbind(j) = VAL(a0$)  
  distnumbind(j) = VAL(a1$)
  distnameind$(j) = a2$  
  rate2(j) = VAL(a3$)  
  rate34(j) = rate2(j) * 2  

结束循环。

LOOP  

关闭输入文件。

CLOSE #1  

保存记录数。

iTotal2 = j