Looking to use Wcmatch

[CadFrank]

Hi,

I'm making a I beam routine.

now I would like to use a file with all the specification and make them use it in the routine. Such as this file. Specification.txt

(setq name (getstring T "\nGive name of I Beam : "))

(setq H 
      L 
      EA 
      ES 
      k 
      k1 
)

So I want to set those variable with the one in the .txt file according to the name given.

Anyone have a suggestion !

[MSasu]

This looks more like a job for ASSOC:

(setq listProfiles '(("W530 x 85" 535 166 10.3 16.5 35 22)
                     ("W530 x 74" 529 166  9.7 13.6 32 21)))

(setq listBeam (cdr (assoc name listProfile))
(if listBeam
 (setq H (nth 0 listBeam)
       L (nth 1 listBeam)
...

[CadFrank]

Well can I put it in another file.. since the I beam list is pretty long

[Tharwat]

This is enough ..

(mapcar 'set '(H L EA ES k k1) (list "W530 x 85" 535 166 10.3 16.5 35 22))

[CadFrank]

Well i'm pretty sure they work and all... But i'd like to make it a seperate file since I have like 288 different I beam

like it i would use :

(setq list (open file "r")

... etc

I know i'm asking alot

But I want to learn fast more and more

[Tharwat]

That's correct . and use the function read-line to read the line of values with while function to run to the end .

[CadFrank]

Now I get to this and it's not keeping the variable in memori..

(setq f (open "C:\\Users\\francois.levesque\\Documents\\specification.txt" "r"))

(setq name "W530 x 74")

(setq listt
(while (setq blist (read-line f))
     (if (wcmatch blist (strcat "*"name"*"))
       (princ blist)
     )
)
)

Now, what am I missing.

[Tharwat]

What are you trying to achieve ?

[CadFrank]

Well keep the line in memorie so i can use them and put each variable in a setq

[Tharwat]

You should step through each line of string and divide it by spaces or characters or what ever you have in your criteria .

functions may help in this regard .

vl-position
vl-string-search
vl-string-position