topic VARTYPE line error in Libraries & objects

VARTYPE line error

JGoode — Fri, 24 Nov 2017 10:33:06 GMT

I keep getting an error on the "IF n > 0 AND VARTYPE (var) = 2 THEN" line
I don't know what's causing it or how to fix it.

DIM sarray[]
! file in the library, containing parameter data
filename = "ProjectNotes.txt"
ch1 = OPEN ("text", filename, "MODE=RO, LIBRARY")
i = 1
j = 1
sarray[1] = ""
! collect all strings
DO
    n = INPUT (ch1, i, 1, var)
    IF n > 0 AND VARTYPE (var) = 2 THEN
        sarray = var
        j = j + 1
    ENDIF
    i = i + 1
WHILE n > 0
CLOSE ch1
! parameter popup with strings read from the file
VALUES "RefNote" sarray

Re: VARTYPE line error

Pertti Paasky — Sat, 25 Nov 2017 07:35:20 GMT

Works with me. Check parameter "RefNote" in the parameters' tab, it's type should be text.
-The text file must be in the loaded library.It must not be opened in any other application at the same time.

Re: VARTYPE line error

Anonymous — Sat, 25 Nov 2017 19:55:35 GMT

JGoode wrote:
I keep getting an error on the "IF n > 0 AND VARTYPE (var) = 2 THEN" line
I don't know what's causing it or how to fix it.

Create var parameter, or declare var = 0 in the script. And there will be no mistakes.

Re: VARTYPE line error

Gergely Feher — Thu, 30 Nov 2017 06:51:54 GMT

If the input is not successful, then vartype will be uninitialized. So you should split it to two conditions:

if n > 0 then
    if vartype (var) = 2 then
        ...