- string to list
- 02 Aug 2006 04:01:28 pm
- Last edited by lafferjm on 03 Aug 2006 08:35:56 am; edited 1 time in total
here are a couple optimized routines i created. one converts a string to a list and the other converts the list to text.
string to list:
Code:
list to text:
Code:
string to list:
Code:
:DelVar L1
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ? .→Str1
:ClrHome
:Input "NAME:",Str2
:For(A,1,length(Str2
:inString(Str1,sub(Str2,A,1→L1(A
:End
list to text:
Code:
:ClrHome
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ? .→Str1
:For(A,1,dim(L1
:L1(A→B
:Output(1,A,sub(Str1,B,1
:End