/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / baslib / StringLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3b f4 20 3e 24 | 2e 42 61 73 4c 69 62 2e |...;. >$|.BasLib.|
|00000010| 53 74 72 69 6e 67 4c 69 | 62 20 20 3a 20 50 52 4f |StringLi|b  : PRO|
|00000020| 43 68 65 6c 70 5f 73 74 | 72 69 6e 67 6c 69 62 20 |Chelp_st|ringlib |
|00000030| 66 6f 72 20 64 65 74 61 | 69 6c 73 0d 00 14 05 3a |for deta|ils....:|
|00000040| 0d 00 1e 1a f4 20 56 31 | 2e 30 31 20 32 36 31 30 |..... V1|.01 2610|
|00000050| 38 38 20 63 72 65 61 74 | 65 64 0d 00 28 33 f4 20 |88 creat|ed..(3. |
|00000060| 56 31 2e 30 32 20 32 37 | 30 32 38 39 20 41 64 64 |V1.02 27|0289 Add|
|00000070| 65 64 20 46 4e 73 74 72 | 69 70 5f 61 6c 6c 28 73 |ed FNstr|ip_all(s|
|00000080| 74 72 69 6e 67 24 2c 63 | 68 61 72 24 29 0d 00 32 |tring$,c|har$)..2|
|00000090| 36 f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |6.      |        |
|000000a0| 4d 6f 76 65 64 20 46 4e | 6d 65 6d 5f 74 6f 5f 73 |Moved FN|mem_to_s|
|000000b0| 74 72 69 6e 67 28 29 20 | 66 72 6f 6d 20 47 65 6e |tring() |from Gen|
|000000c0| 4c 69 62 0d 00 33 26 f4 | 20 56 31 2e 30 33 20 31 |Lib..3&.| V1.03 1|
|000000d0| 35 30 33 38 39 20 41 64 | 64 65 64 20 46 4e 73 74 |50389 Ad|ded FNst|
|000000e0| 72 69 70 5f 61 6c 6c 28 | 29 0d 00 3c 05 3a 0d 00 |rip_all(|)..<.:..|
|000000f0| 46 23 dd a4 73 74 72 69 | 70 5f 74 72 61 69 6c 69 |F#..stri|p_traili|
|00000100| 6e 67 28 73 74 72 69 6e | 67 24 2c 63 68 61 72 24 |ng(strin|g$,char$|
|00000110| 29 0d 00 50 1a c8 95 20 | c2 73 74 72 69 6e 67 24 |)..P... |.string$|
|00000120| 2c 31 29 20 3d 20 63 68 | 61 72 24 0d 00 5a 28 20 |,1) = ch|ar$..Z( |
|00000130| 20 73 74 72 69 6e 67 24 | 20 3d 20 c0 73 74 72 69 | string$| = .stri|
|00000140| 6e 67 24 2c a9 28 73 74 | 72 69 6e 67 24 29 20 2d |ng$,.(st|ring$) -|
|00000150| 20 31 29 0d 00 64 05 ce | 0d 00 6e 0d 3d 20 73 74 | 1)..d..|..n.= st|
|00000160| 72 69 6e 67 24 0d 00 78 | 05 3a 0d 00 82 22 dd a4 |ring$..x|.:..."..|
|00000170| 73 74 72 69 70 5f 6c 65 | 61 64 69 6e 67 28 73 74 |strip_le|ading(st|
|00000180| 72 69 6e 67 24 2c 63 68 | 61 72 24 29 0d 00 8c 1a |ring$,ch|ar$)....|
|00000190| c8 95 20 c0 73 74 72 69 | 6e 67 24 2c 31 29 20 3d |.. .stri|ng$,1) =|
|000001a0| 20 63 68 61 72 24 0d 00 | 96 1b 20 20 73 74 72 69 | char$..|..  stri|
|000001b0| 6e 67 24 20 3d 20 c1 73 | 74 72 69 6e 67 24 2c 32 |ng$ = .s|tring$,2|
|000001c0| 29 0d 00 a0 05 ce 0d 00 | aa 0d 3d 20 73 74 72 69 |).......|..= stri|
|000001d0| 6e 67 24 0d 00 b4 05 3a | 0d 00 be 1e dd a4 73 74 |ng$....:|......st|
|000001e0| 72 69 70 5f 61 6c 6c 28 | 73 74 72 69 6e 67 24 2c |rip_all(|string$,|
|000001f0| 63 68 61 72 24 29 0d 00 | c8 0e ea 20 64 6f 6e 65 |char$)..|... done|
|00000200| 2c 70 6f 73 0d 00 d2 0a | 64 6f 6e 65 3d b9 0d 00 |,pos....|done=...|
|00000210| dc 05 f5 0d 00 e6 19 20 | 20 70 6f 73 3d a7 73 74 |....... | pos=.st|
|00000220| 72 69 6e 67 24 2c 63 68 | 61 72 24 29 0d 00 f0 0d |ring$,ch|ar$)....|
|00000230| 20 20 e7 20 70 6f 73 20 | 8c 0d 00 fa 0e 20 20 20 |  . pos |.....   |
|00000240| 20 64 6f 6e 65 3d a3 0d | 01 04 2f 20 20 20 20 73 | done=..|../    s|
|00000250| 74 72 69 6e 67 24 3d c0 | 73 74 72 69 6e 67 24 2c |tring$=.|string$,|
|00000260| 70 6f 73 2d 31 29 2b c1 | 73 74 72 69 6e 67 24 2c |pos-1)+.|string$,|
|00000270| 70 6f 73 2b 31 29 0d 01 | 0e 07 20 20 cc 0d 01 18 |pos+1)..|..  ....|
|00000280| 0e 20 20 20 20 64 6f 6e | 65 3d b9 0d 01 22 07 20 |.    don|e=...". |
|00000290| 20 cd 0d 01 2c 0a fd 20 | 64 6f 6e 65 0d 01 36 0c | ...,.. |done..6.|
|000002a0| 3d 73 74 72 69 6e 67 24 | 0d 01 40 05 3a 0d 01 4a |=string$|..@.:..J|
|000002b0| 29 dd a4 70 61 64 5f 74 | 72 61 69 6c 69 6e 67 28 |)..pad_t|railing(|
|000002c0| 73 74 72 69 6e 67 24 2c | 63 68 61 72 24 2c 6c 65 |string$,|char$,le|
|000002d0| 6e 67 74 68 25 29 0d 01 | 54 1b c8 95 20 a9 28 73 |ngth%)..|T... .(s|
|000002e0| 74 72 69 6e 67 24 29 20 | 3c 20 6c 65 6e 67 74 68 |tring$) |< length|
|000002f0| 25 0d 01 5e 36 20 20 73 | 74 72 69 6e 67 24 20 3d |%..^6  s|tring$ =|
|00000300| 20 73 74 72 69 6e 67 24 | 20 2b 20 c4 6c 65 6e 67 | string$| + .leng|
|00000310| 74 68 25 20 2d 20 a9 28 | 73 74 72 69 6e 67 24 29 |th% - .(|string$)|
|00000320| 2c 63 68 61 72 24 29 0d | 01 68 05 ce 0d 01 72 0d |,char$).|.h....r.|
|00000330| 3d 20 73 74 72 69 6e 67 | 24 0d 01 7c 05 3a 0d 01 |= string|$..|.:..|
|00000340| 86 28 dd a4 70 61 64 5f | 6c 65 61 64 69 6e 67 28 |.(..pad_|leading(|
|00000350| 73 74 72 69 6e 67 24 2c | 63 68 61 72 24 2c 6c 65 |string$,|char$,le|
|00000360| 6e 67 74 68 25 29 0d 01 | 90 1b c8 95 20 a9 28 73 |ngth%)..|.... .(s|
|00000370| 74 72 69 6e 67 24 29 20 | 3c 20 6c 65 6e 67 74 68 |tring$) |< length|
|00000380| 25 0d 01 9a 36 20 20 73 | 74 72 69 6e 67 24 20 3d |%...6  s|tring$ =|
|00000390| 20 c4 6c 65 6e 67 74 68 | 25 20 2d 20 a9 28 73 74 | .length|% - .(st|
|000003a0| 72 69 6e 67 24 29 2c 63 | 68 61 72 24 29 20 2b 20 |ring$),c|har$) + |
|000003b0| 73 74 72 69 6e 67 24 0d | 01 a4 05 ce 0d 01 ae 0d |string$.|........|
|000003c0| 3d 20 73 74 72 69 6e 67 | 24 0d 01 b8 05 3a 0d 01 |= string|$....:..|
|000003d0| c2 19 dd a4 75 70 70 65 | 72 5f 63 61 73 65 28 73 |....uppe|r_case(s|
|000003e0| 74 72 69 6e 67 24 29 0d | 01 cc 0b ea 20 6c 6f 6f |tring$).|.... loo|
|000003f0| 70 25 0d 01 d6 16 e7 20 | a9 28 73 74 72 69 6e 67 |p%..... |.(string|
|00000400| 24 29 20 3e 20 30 20 8c | 0d 01 e0 1d 20 e3 20 6c |$) > 0 .|.... . l|
|00000410| 6f 6f 70 25 20 3d 20 31 | 20 b8 20 a9 28 73 74 72 |oop% = 1| . .(str|
|00000420| 69 6e 67 24 29 0d 01 ea | 3a 20 20 20 e7 20 c1 73 |ing$)...|:   . .s|
|00000430| 74 72 69 6e 67 24 2c 6c | 6f 6f 70 25 2c 31 29 3e |tring$,l|oop%,1)>|
|00000440| 3d 22 61 22 20 80 20 c1 | 73 74 72 69 6e 67 24 2c |="a" . .|string$,|
|00000450| 6c 6f 6f 70 25 2c 31 29 | 3c 3d 22 7a 22 20 8c 0d |loop%,1)|<="z" ..|
|00000460| 01 f4 3a 20 20 20 20 20 | c1 73 74 72 69 6e 67 24 |..:     |.string$|
|00000470| 2c 6c 6f 6f 70 25 2c 31 | 29 20 3d 20 bd 28 97 28 |,loop%,1|) = .(.(|
|00000480| c1 73 74 72 69 6e 67 24 | 2c 6c 6f 6f 70 25 2c 31 |.string$|,loop%,1|
|00000490| 29 29 20 80 20 26 44 46 | 29 0d 01 fe 08 20 20 20 |)) . &DF|)....   |
|000004a0| cd 0d 02 08 0c 20 ed 20 | 6c 6f 6f 70 25 0d 02 12 |..... . |loop%...|
|000004b0| 05 cd 0d 02 1c 0d 3d 20 | 73 74 72 69 6e 67 24 0d |......= |string$.|
|000004c0| 02 26 05 3a 0d 02 30 2b | dd a4 73 74 72 69 6e 67 |.&.:..0+|..string|
|000004d0| 5f 65 78 63 68 61 6e 67 | 65 28 73 74 72 69 6e 67 |_exchang|e(string|
|000004e0| 24 2c 74 61 72 67 65 74 | 24 2c 73 75 62 24 29 0d |$,target|$,sub$).|
|000004f0| 02 3a 0c ea 20 69 6e 64 | 65 78 25 0d 02 44 1a e7 |.:.. ind|ex%..D..|
|00000500| 20 20 a7 73 74 72 69 6e | 67 24 2c 74 61 72 67 65 |  .strin|g$,targe|
|00000510| 74 24 29 20 8c 0d 02 4e | 1e 20 20 69 6e 64 65 78 |t$) ...N|.  index|
|00000520| 25 3d a7 73 74 72 69 6e | 67 24 2c 74 61 72 67 65 |%=.strin|g$,targe|
|00000530| 74 24 29 0d 02 58 3f 20 | 20 73 74 72 69 6e 67 24 |t$)..X? | string$|
|00000540| 3d c0 73 74 72 69 6e 67 | 24 2c 69 6e 64 65 78 25 |=.string|$,index%|
|00000550| 2d 31 29 2b 73 75 62 24 | 2b c1 73 74 72 69 6e 67 |-1)+sub$|+.string|
|00000560| 24 2c 69 6e 64 65 78 25 | 2b a9 74 61 72 67 65 74 |$,index%|+.target|
|00000570| 24 29 0d 02 62 05 cd 0d | 02 6c 0c 3d 73 74 72 69 |$)..b...|.l.=stri|
|00000580| 6e 67 24 0d 02 76 05 3a | 0d 02 80 1b dd a4 6c 6f |ng$..v.:|......lo|
|00000590| 6e 67 65 73 74 28 61 72 | 72 61 79 24 28 29 2c 6e |ngest(ar|ray$(),n|
|000005a0| 72 25 29 0d 02 8a 14 ea | 20 6c 6f 6f 70 25 2c 6c |r%).....| loop%,l|
|000005b0| 6f 6e 67 65 73 74 25 0d | 02 94 10 6c 6f 6e 67 65 |ongest%.|...longe|
|000005c0| 73 74 25 20 3d 20 30 0d | 02 9e 15 e3 20 6c 6f 6f |st% = 0.|.... loo|
|000005d0| 70 25 20 3d 20 30 20 b8 | 20 6e 72 25 0d 02 a8 25 |p% = 0 .| nr%...%|
|000005e0| 20 20 e7 20 a9 28 61 72 | 72 61 79 24 28 6c 6f 6f |  . .(ar|ray$(loo|
|000005f0| 70 25 29 29 20 3e 20 6c | 6f 6e 67 65 73 74 25 20 |p%)) > l|ongest% |
|00000600| 8c 0d 02 b2 23 20 20 20 | 20 6c 6f 6e 67 65 73 74 |....#   | longest|
|00000610| 25 20 3d 20 a9 28 61 72 | 72 61 79 24 28 6c 6f 6f |% = .(ar|ray$(loo|
|00000620| 70 25 29 29 0d 02 bc 07 | 20 20 cd 0d 02 c6 0b ed |p%))....|  ......|
|00000630| 20 6c 6f 6f 70 25 0d 02 | d0 0e 3d 20 6c 6f 6e 67 | loop%..|..= long|
|00000640| 65 73 74 25 0d 02 da 05 | 3a 0d 02 e4 29 dd a4 6d |est%....|:...)..m|
|00000650| 65 6d 5f 74 6f 5f 73 74 | 72 69 6e 67 28 62 6c 6f |em_to_st|ring(blo|
|00000660| 63 6b 25 2c 6f 66 66 73 | 65 74 25 2c 74 65 72 6d |ck%,offs|et%,term|
|00000670| 25 29 0d 02 ee 0d ea 20 | 73 74 72 69 6e 67 24 0d |%)..... |string$.|
|00000680| 02 f8 1c c8 95 20 62 6c | 6f 63 6b 25 3f 6f 66 66 |..... bl|ock%?off|
|00000690| 73 65 74 25 3c 3e 74 65 | 72 6d 25 0d 03 02 20 20 |set%<>te|rm%...  |
|000006a0| 20 73 74 72 69 6e 67 24 | 2b 3d bd 28 62 6c 6f 63 | string$|+=.(bloc|
|000006b0| 6b 25 3f 6f 66 66 73 65 | 74 25 29 0d 03 0c 10 20 |k%?offse|t%).... |
|000006c0| 20 6f 66 66 73 65 74 25 | 2b 3d 31 0d 03 16 05 ce | offset%|+=1.....|
|000006d0| 0d 03 20 0c 3d 73 74 72 | 69 6e 67 24 0d 03 2a 05 |.. .=str|ing$..*.|
|000006e0| 3a 0d 03 34 14 dd f2 68 | 65 6c 70 5f 73 74 72 69 |:..4...h|elp_stri|
|000006f0| 6e 67 6c 69 62 0d 03 3e | 05 f1 0d 03 48 2e f1 22 |nglib..>|....H.."|
|00000700| 20 31 29 2e 20 44 45 46 | 46 4e 73 74 72 69 70 5f | 1). DEF|FNstrip_|
|00000710| 74 72 61 69 6c 69 6e 67 | 28 73 74 72 69 6e 67 24 |trailing|(string$|
|00000720| 2c 63 68 61 72 24 29 22 | 0d 03 52 3d f1 22 20 20 |,char$)"|..R=."  |
|00000730| 20 20 20 20 20 53 74 72 | 69 70 73 20 63 68 61 72 |     Str|ips char|
|00000740| 24 20 66 72 6f 6d 20 74 | 68 65 20 72 69 67 68 74 |$ from t|he right|
|00000750| 20 68 61 6e 64 20 65 6e | 64 20 6f 66 20 73 74 72 | hand en|d of str|
|00000760| 69 6e 67 24 22 0d 03 5c | 2d f1 22 20 32 29 2e 20 |ing$"..\|-." 2). |
|00000770| 44 45 46 46 4e 73 74 72 | 69 70 5f 6c 65 61 64 69 |DEFFNstr|ip_leadi|
|00000780| 6e 67 28 73 74 72 69 6e | 67 24 2c 63 68 61 72 24 |ng(strin|g$,char$|
|00000790| 29 22 0d 03 66 3c f1 22 | 20 20 20 20 20 20 20 53 |)"..f<."|       S|
|000007a0| 74 72 69 70 73 20 63 68 | 61 72 24 20 66 72 6f 6d |trips ch|ar$ from|
|000007b0| 20 74 68 65 20 6c 65 66 | 74 20 68 61 6e 64 20 65 | the lef|t hand e|
|000007c0| 6e 64 20 6f 66 20 73 74 | 72 69 6e 67 24 22 0d 03 |nd of st|ring$"..|
|000007d0| 70 34 f1 22 20 33 29 2e | 20 44 45 46 46 4e 70 61 |p4." 3).| DEFFNpa|
|000007e0| 64 5f 74 72 61 69 6c 69 | 6e 67 28 73 74 72 69 6e |d_traili|ng(strin|
|000007f0| 67 24 2c 63 68 61 72 24 | 2c 6c 65 6e 67 74 68 25 |g$,char$|,length%|
|00000800| 29 22 0d 03 7a 46 f1 22 | 20 20 20 20 20 20 20 50 |)"..zF."|       P|
|00000810| 61 64 73 20 74 68 65 20 | 72 69 67 68 74 20 68 61 |ads the |right ha|
|00000820| 6e 64 20 65 6e 64 20 6f | 66 20 73 74 72 69 6e 67 |nd end o|f string|
|00000830| 24 20 77 69 74 68 20 63 | 68 61 72 24 20 74 6f 20 |$ with c|har$ to |
|00000840| 6c 65 6e 67 74 68 25 22 | 0d 03 84 33 f1 22 20 34 |length%"|...3." 4|
|00000850| 29 2e 20 44 45 46 46 4e | 70 61 64 5f 6c 65 61 64 |). DEFFN|pad_lead|
|00000860| 69 6e 67 28 73 74 72 69 | 6e 67 24 2c 63 68 61 72 |ing(stri|ng$,char|
|00000870| 24 2c 6c 65 6e 67 74 68 | 25 29 22 0d 03 8e 45 f1 |$,length|%)"...E.|
|00000880| 22 20 20 20 20 20 20 20 | 50 61 64 73 20 74 68 65 |"       |Pads the|
|00000890| 20 6c 65 66 74 20 68 61 | 6e 64 20 65 6e 64 20 6f | left ha|nd end o|
|000008a0| 66 20 73 74 72 69 6e 67 | 24 20 77 69 74 68 20 63 |f string|$ with c|
|000008b0| 68 61 72 24 20 74 6f 20 | 6c 65 6e 67 74 68 25 22 |har$ to |length%"|
|000008c0| 0d 03 98 24 f1 22 20 35 | 29 2e 20 44 45 46 46 4e |...$." 5|). DEFFN|
|000008d0| 75 70 70 65 72 5f 63 61 | 73 65 28 73 74 72 69 6e |upper_ca|se(strin|
|000008e0| 67 24 29 22 0d 03 a2 35 | f1 22 20 20 20 20 20 20 |g$)"...5|."      |
|000008f0| 20 52 65 74 75 72 6e 73 | 20 73 74 72 69 6e 67 24 | Returns| string$|
|00000900| 20 63 6f 6e 76 65 72 74 | 65 64 20 74 6f 20 75 70 | convert|ed to up|
|00000910| 70 65 72 20 63 61 73 65 | 22 0d 03 ac 26 f1 22 20 |per case|"...&." |
|00000920| 36 29 2e 20 44 45 46 46 | 4e 6c 6f 6e 67 65 73 74 |6). DEFF|Nlongest|
|00000930| 28 61 72 72 61 79 24 28 | 29 2c 6e 72 25 29 22 0d |(array$(|),nr%)".|
|00000940| 03 b6 43 f1 22 20 20 20 | 20 20 20 20 52 65 74 75 |..C."   |    Retu|
|00000950| 72 6e 73 20 74 68 65 20 | 6c 65 6e 67 74 68 20 6f |rns the |length o|
|00000960| 66 20 74 68 65 20 6c 6f | 6e 67 65 73 74 20 65 6c |f the lo|ngest el|
|00000970| 65 6d 65 6e 74 20 69 6e | 20 61 72 72 61 79 24 28 |ement in| array$(|
|00000980| 29 22 0d 03 c0 34 f1 22 | 20 37 29 2e 20 44 45 46 |)"...4."| 7). DEF|
|00000990| 46 4e 6d 65 6d 5f 74 6f | 5f 73 74 72 69 6e 67 28 |FNmem_to|_string(|
|000009a0| 62 6c 6f 63 6b 25 2c 6f | 66 66 73 65 74 25 2c 74 |block%,o|ffset%,t|
|000009b0| 65 72 6d 25 29 22 0d 03 | ca 44 f1 22 20 20 20 20 |erm%)"..|.D."    |
|000009c0| 20 20 20 72 65 74 75 72 | 6e 73 20 61 20 73 74 72 |   retur|ns a str|
|000009d0| 69 6e 67 20 74 65 72 6d | 69 6e 61 74 65 64 20 62 |ing term|inated b|
|000009e0| 79 20 74 65 72 6d 25 20 | 66 72 6f 6d 20 74 68 65 |y term% |from the|
|000009f0| 20 62 6c 6f 63 6b 20 6f | 66 22 0d 03 d4 1e f1 22 | block o|f"....."|
|00000a00| 20 20 20 20 20 20 20 6d | 65 6d 6f 72 79 20 61 74 |       m|emory at|
|00000a10| 20 62 6c 6f 63 6b 25 22 | 0d 03 de 36 f1 22 20 38 | block%"|...6." 8|
|00000a20| 29 2e 20 44 45 46 46 4e | 73 74 72 69 6e 67 5f 65 |). DEFFN|string_e|
|00000a30| 78 63 68 61 6e 67 65 28 | 73 74 72 69 6e 67 24 2c |xchange(|string$,|
|00000a40| 74 61 72 67 65 74 24 2c | 73 75 62 24 29 22 0d 03 |target$,|sub$)"..|
|00000a50| e8 3f f1 22 20 20 20 20 | 20 20 20 52 65 74 75 72 |.?."    |   Retur|
|00000a60| 6e 73 20 73 74 72 69 6e | 67 24 20 77 69 74 68 20 |ns strin|g$ with |
|00000a70| 73 75 62 24 20 73 75 62 | 73 74 69 74 75 74 65 64 |sub$ sub|stituted|
|00000a80| 20 66 6f 72 20 74 61 72 | 67 65 74 24 22 0d 03 f2 | for tar|get$"...|
|00000a90| 29 f1 22 20 39 29 2e 20 | 44 45 46 46 4e 73 74 72 |)." 9). |DEFFNstr|
|00000aa0| 69 70 5f 61 6c 6c 28 73 | 74 72 69 6e 67 24 2c 63 |ip_all(s|tring$,c|
|00000ab0| 68 61 72 24 29 22 0d 03 | fc 38 f1 22 20 20 20 20 |har$)"..|.8."    |
|00000ac0| 20 20 20 53 74 72 69 70 | 73 20 63 68 61 72 24 20 |   Strip|s char$ |
|00000ad0| 66 72 6f 6d 20 61 6e 79 | 77 68 65 72 65 20 77 69 |from any|where wi|
|00000ae0| 74 68 69 6e 20 73 74 72 | 69 6e 67 24 2e 22 0d 04 |thin str|ing$."..|
|00000af0| 06 05 e1 0d ff          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+