Как использовать параметр в качестве Varable Name? - PullRequest
Новая
       40

Как использовать параметр в качестве Varable Name?

0 голосов
/ 04 февраля 2020

пытается создать подпрограмму, которая может изменять параметры, чтобы найти, какой varable вернуть. 

    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

Я хочу вернуть LPFoot из литерала "STR_WEG_PREMIUM" с переменной STR_WEG_PREMIUM, поэтому мне просто нужно создать одна подпрограмма вместо одной для каждой другой переменной, значение которой мне нужно.

Я буду вызывать с GetStdMotorPricing ("STR_WEG_PREMIUM", LPFoot) и иметь LPFoot по цене STR_WEG_PREMIUM Motor.

1 Ответ

0 голосов
/ 02 марта 2020

не знаю, поможет ли это 

    text$ = _TRIM$(STR$(base1))
    REDIM Numbers(LEN(text$))
    ' FOR i = 1 TO LEN(text$)
    y = LEN(text$)
...