试图理解 HTBasic 代码的问题
Issues trying to understand a HTBasic code
IF Y$="" THEN
REPEAT
INPUT "FILE NAME**strong text** ?",Y$
Y$=TRIM$(Y$)
UNTIL LEN(Y$)<8
END IF
DISP "enr "&Ld$&"\";Y$
Nb_rc=VAL(Mesu$(0,5))+1
ON ERROR CALL Ges_err
CREATE BDAT Y$&"t",VAL(Mesu$(0,5))+2,7*34
1 ASSIGN @Voie_0 TO Y$&"t"
2 OUTPUT @Voie_0;Mesu$(*)
3 ASSIGN @Voie_0 TO *
CREATE BDAT Y$&"v",VAL(Mesu$(0,6)),(VAL(Mesu$(0,5))+1)*8
ASSIGN @Voie_0 TO Y$&"v"
OUTPUT @Voie_0;V(*)
ASSIGN @Voie_0 TO *
OFF ERROR
RETURN
这是一些 HTBasic 代码,我无法理解这些行 (1,2,3) 的作用。
我发现了那些行的意思。
第 1 行:分配 "Global variable" 中名为 @Voie_0 的文件的路径
第 2 行:在文件中写入选项卡 Mesu 的值
第 3 行:清除全局变量
IF Y$="" THEN
REPEAT
INPUT "FILE NAME**strong text** ?",Y$
Y$=TRIM$(Y$)
UNTIL LEN(Y$)<8
END IF
DISP "enr "&Ld$&"\";Y$
Nb_rc=VAL(Mesu$(0,5))+1
ON ERROR CALL Ges_err
CREATE BDAT Y$&"t",VAL(Mesu$(0,5))+2,7*34
1 ASSIGN @Voie_0 TO Y$&"t"
2 OUTPUT @Voie_0;Mesu$(*)
3 ASSIGN @Voie_0 TO *
CREATE BDAT Y$&"v",VAL(Mesu$(0,6)),(VAL(Mesu$(0,5))+1)*8
ASSIGN @Voie_0 TO Y$&"v"
OUTPUT @Voie_0;V(*)
ASSIGN @Voie_0 TO *
OFF ERROR
RETURN
这是一些 HTBasic 代码,我无法理解这些行 (1,2,3) 的作用。
我发现了那些行的意思。
第 1 行:分配 "Global variable" 中名为 @Voie_0 的文件的路径 第 2 行:在文件中写入选项卡 Mesu 的值 第 3 行:清除全局变量