/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT56 / DATA

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 10 00 00 00 45 78 74 72 | 61 63 74 50 61 72 61 6d |....Extr|actParam|
|00000010| 65 74 65 72 10 00 00 00 | 45 78 74 72 61 63 74 50 |eter....|ExtractP|
|00000020| 61 72 61 6d 65 74 65 72 | 05 00 00 00 4c 6f 74 75 |arameter|....Lotu|
|00000030| 73 3b 00 00 00 46 75 6e | 63 74 69 6f 6e 20 65 78 |s;...Fun|ction ex|
|00000040| 74 72 61 63 74 73 20 61 | 20 70 61 72 61 6d 65 74 |tracts a| paramet|
|00000050| 65 72 20 76 61 6c 75 65 | 20 66 72 6f 6d 20 61 20 |er value| from a |
|00000060| 55 52 4c 20 71 75 65 72 | 79 20 73 74 72 69 6e 67 |URL quer|y string|
|00000070| ff 03 00 00 25 52 45 4d | 0d 0a 20 0d 0a 45 78 74 |....%REM|.. ..Ext|
|00000080| 72 61 63 74 50 61 72 61 | 6d 65 74 65 72 0d 0a 0d |ractPara|meter...|
|00000090| 0a 44 45 53 43 3a 20 46 | 75 6e 63 74 69 6f 6e 20 |.DESC: F|unction |
|000000a0| 65 78 74 72 61 63 74 73 | 20 61 20 70 61 72 61 6d |extracts| a param|
|000000b0| 65 74 65 72 20 76 61 6c | 75 65 20 66 72 6f 6d 20 |eter val|ue from |
|000000c0| 61 20 55 52 4c 20 71 75 | 65 72 79 20 73 74 72 69 |a URL qu|ery stri|
|000000d0| 6e 67 2e 0d 0a 0d 0a 50 | 4c 41 54 46 4f 52 4d 53 |ng.....P|LATFORMS|
|000000e0| 3a 20 4c 6f 74 75 73 20 | 44 6f 6d 69 6e 6f 20 53 |: Lotus |Domino S|
|000000f0| 65 72 76 65 72 20 34 2e | 35 20 61 6e 64 20 68 69 |erver 4.|5 and hi|
|00000100| 67 68 65 72 0d 0a 0d 0a | 25 45 4e 44 20 52 45 4d |gher....|%END REM|
|00000110| 0d 0a 0d 0a 46 75 6e 63 | 74 69 6f 6e 20 45 78 74 |....Func|tion Ext|
|00000120| 72 61 63 74 50 61 72 61 | 6d 65 74 65 72 28 20 70 |ractPara|meter( p|
|00000130| 61 72 61 6d 4e 61 6d 65 | 20 41 73 20 53 74 72 69 |aramName| As Stri|
|00000140| 6e 67 2c 20 71 75 65 72 | 79 53 74 72 69 6e 67 20 |ng, quer|yString |
|00000150| 41 73 20 53 74 72 69 6e | 67 20 29 0d 0a 0d 0a 20 |As Strin|g ).... |
|00000160| 20 20 44 69 6d 20 73 74 | 61 72 74 50 6f 73 20 41 |  Dim st|artPos A|
|00000170| 73 20 49 6e 74 65 67 65 | 72 2c 20 65 6e 64 50 6f |s Intege|r, endPo|
|00000180| 73 20 41 73 20 49 6e 74 | 65 67 65 72 0d 0a 20 20 |s As Int|eger..  |
|00000190| 20 44 69 6d 20 70 61 72 | 61 6d 4c 61 62 65 6c 20 | Dim par|amLabel |
|000001a0| 41 73 20 53 74 72 69 6e | 67 0d 0a 20 20 20 70 61 |As Strin|g..   pa|
|000001b0| 72 61 6d 4c 61 62 65 6c | 20 3d 20 70 61 72 61 6d |ramLabel| = param|
|000001c0| 4e 61 6d 65 20 26 20 22 | 3d 22 0d 0a 20 20 20 73 |Name & "|="..   s|
|000001d0| 74 61 72 74 50 6f 73 20 | 3d 20 49 6e 53 74 72 28 |tartPos |= InStr(|
|000001e0| 20 71 75 65 72 79 53 74 | 72 69 6e 67 2c 20 70 61 | querySt|ring, pa|
|000001f0| 72 61 6d 4c 61 62 65 6c | 20 29 0d 0a 20 20 20 27 |ramLabel| )..   '|
|00000200| 20 46 69 72 73 74 20 6d | 61 6b 65 20 73 75 72 65 | First m|ake sure|
|00000210| 20 74 68 65 20 70 61 72 | 61 6d 65 74 65 72 20 69 | the par|ameter i|
|00000220| 73 20 72 65 61 6c 6c 79 | 20 74 68 65 72 65 0d 0a |s really| there..|
|00000230| 20 20 20 49 66 20 28 20 | 73 74 61 72 74 50 6f 73 |   If ( |startPos|
|00000240| 20 3d 20 30 20 29 20 54 | 68 65 6e 0d 0a 20 20 20 | = 0 ) T|hen..   |
|00000250| 20 20 20 45 78 74 72 61 | 63 74 50 61 72 61 6d 65 |   Extra|ctParame|
|00000260| 74 65 72 20 3d 20 22 22 | 0d 0a 20 20 20 20 20 20 |ter = ""|..      |
|00000270| 45 78 69 74 20 46 75 6e | 63 74 69 6f 6e 0d 0a 20 |Exit Fun|ction.. |
|00000280| 20 20 45 6e 64 20 49 66 | 0d 0a 20 20 20 27 20 4e |  End If|..   ' N|
|00000290| 6f 77 20 69 6e 63 72 65 | 6d 65 6e 74 20 74 68 65 |ow incre|ment the|
|000002a0| 20 73 74 61 72 74 69 6e | 67 20 70 6f 73 69 74 69 | startin|g positi|
|000002b0| 6f 6e 20 70 61 73 74 20 | 74 68 65 20 70 61 72 61 |on past |the para|
|000002c0| 6d 65 74 65 72 20 6c 61 | 62 65 6c 0d 0a 20 20 20 |meter la|bel..   |
|000002d0| 71 75 65 72 79 53 74 72 | 69 6e 67 20 3d 20 4d 69 |queryStr|ing = Mi|
|000002e0| 64 28 20 71 75 65 72 79 | 53 74 72 69 6e 67 2c 20 |d( query|String, |
|000002f0| 73 74 61 72 74 50 6f 73 | 20 29 0d 0a 20 20 20 73 |startPos| )..   s|
|00000300| 74 61 72 74 50 6f 73 20 | 3d 20 49 6e 53 74 72 28 |tartPos |= InStr(|
|00000310| 20 71 75 65 72 79 53 74 | 72 69 6e 67 2c 20 22 3d | querySt|ring, "=|
|00000320| 22 20 29 20 2b 20 31 0d | 0a 20 20 20 71 75 65 72 |" ) + 1.|.   quer|
|00000330| 79 53 74 72 69 6e 67 20 | 3d 20 4d 69 64 28 20 71 |yString |= Mid( q|
|00000340| 75 65 72 79 53 74 72 69 | 6e 67 2c 20 73 74 61 72 |ueryStri|ng, star|
|00000350| 74 50 6f 73 20 29 0d 0a | 20 20 20 27 20 54 72 69 |tPos )..|   ' Tri|
|00000360| 6d 20 6f 66 66 20 65 76 | 65 72 79 74 68 69 6e 67 |m off ev|erything|
|00000370| 20 74 68 61 74 20 63 6f | 6d 65 73 20 61 66 74 65 | that co|mes afte|
|00000380| 72 20 74 68 69 73 20 70 | 61 72 61 6d 65 74 65 72 |r this p|arameter|
|00000390| 0d 0a 20 20 20 65 6e 64 | 50 6f 73 20 3d 20 49 6e |..   end|Pos = In|
|000003a0| 53 74 72 28 20 71 75 65 | 72 79 53 74 72 69 6e 67 |Str( que|ryString|
|000003b0| 2c 20 22 26 22 20 29 0d | 0a 20 20 20 49 66 20 28 |, "&" ).|.   If (|
|000003c0| 20 65 6e 64 50 6f 73 20 | 3d 20 30 20 29 20 54 68 | endPos |= 0 ) Th|
|000003d0| 65 6e 0d 0a 20 20 20 20 | 20 20 45 78 74 72 61 63 |en..    |  Extrac|
|000003e0| 74 50 61 72 61 6d 65 74 | 65 72 20 3d 20 71 75 65 |tParamet|er = que|
|000003f0| 72 79 53 74 72 69 6e 67 | 0d 0a 20 20 20 20 20 20 |ryString|..      |
|00000400| 45 78 69 74 20 46 75 6e | 63 74 69 6f 6e 0d 0a 20 |Exit Fun|ction.. |
|00000410| 20 20 45 6e 64 20 49 66 | 0d 0a 20 20 20 65 6e 64 |  End If|..   end|
|00000420| 50 6f 73 20 3d 20 65 6e | 64 50 6f 73 20 2d 20 31 |Pos = en|dPos - 1|
|00000430| 0d 0a 20 20 20 45 78 74 | 72 61 63 74 50 61 72 61 |..   Ext|ractPara|
|00000440| 6d 65 74 65 72 20 3d 20 | 4d 69 64 28 20 71 75 65 |meter = |Mid( que|
|00000450| 72 79 53 74 72 69 6e 67 | 2c 20 31 2c 20 65 6e 64 |ryString|, 1, end|
|00000460| 50 6f 73 20 29 0d 0a 45 | 6e 64 20 46 75 6e 63 74 |Pos )..E|nd Funct|
|00000470| 69 6f 6e 03 00 00 00 4e | 2f 41 03 00 00 00 4e 2f |ion....N|/A....N/|
|00000480| 41                      |                         |A       |        |
+--------+-------------------------+-------------------------+--------+--------+