どの変数を返すかを見つけるために変数パラメーターを使用できるサブルーチンを作成しようとしています。
IF _FILEEXISTS("Std Motor Pricing.csv") THEN
OPEN "Std Motor Pricing.csv" FOR INPUT AS #3
WHILE NOT EOF(3)
INPUT #3, STR_HP$, STR_SPEED$, STR_ACC$, STR_FRAME$, STR_WEIGHT$, STR_BROOK_PREMIUM$, STR_BROOK_IEEE841$, STR_BROOK_CLASS1$, STR_WEG_PREMIUM$, STR_WEG_IEEE841$, STR_WEG_CLASS1$, STR_TECO_PREMIUM$, STR_TECO_IEEE841$, STR_TECO_CLASS1$, STR_TOSHIBA_PREMIUM$, STR_TOSHIBA_IEEE841$, STR_TOSHIBA_CLASS1$
IF STR_HP$ <> "" OR STR_HP$ <> "Motor Size" THEN
IF (mHP = VAL(STR_HP$) AND Pole% = 4 AND STR_SPEED$ = "1800") OR (mHP = VAL(STR_HP$) AND Pole% = 6 AND STR_SPEED$ = "1200") OR (mHP = VAL(STR_HP$) AND Pole% = 8 AND STR_SPEED$ = "900") THEN
IF VAL(STR_WEG_PREMIUM$) > 0 THEN
var1$ = "STR_WEG_PREMIUM$"
LPFoot = VAL(var1$)
print var1$, LPFoot
input "anykey", ok$
END IF
END IF
END IF
WEND
CLOSE #3
END IF
リテラル "STR_WEG_PREMIUM" の LPFoot を変数 STR_WEG_PREMIUM で返したいので、値が必要な変数ごとに 1 つではなく、1 つのサブルーチンを作成するだけです。
GetStdMotorPricing("STR_WEG_PREMIUM",LPFoot) を呼び出して、LPFoot に STR_WEG_PREMIUM Motor の価格を設定します。