home *** CD-ROM | disk | FTP | other *** search
Unknown | 1998-10-05 | 993 b |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
100%
| file
| Excel 2 BIFF 2
| default (weak)
| |
99%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 09 00 00 00 47 65 74 44 | 62 4e 61 6d 65 09 00 00 |....GetD|bName...|
|00000010| 00 47 65 74 44 62 4e 61 | 6d 65 05 00 00 00 4c 6f |.GetDbNa|me....Lo|
|00000020| 74 75 73 3e 00 00 00 46 | 75 6e 63 74 69 6f 6e 20 |tus>...F|unction |
|00000030| 65 78 74 72 61 63 74 73 | 20 74 68 65 20 64 61 74 |extracts| the dat|
|00000040| 61 62 61 73 65 20 70 61 | 74 68 2f 66 69 6c 65 6e |abase pa|th/filen|
|00000050| 61 6d 65 20 66 72 6f 6d | 20 61 20 44 6f 6d 69 6e |ame from| a Domin|
|00000060| 6f 20 55 52 4c 6a 03 00 | 00 25 52 45 4d 0d 0a 0d |o URLj..|.%REM...|
|00000070| 0a 4e 41 4d 45 3a 20 47 | 65 74 44 62 4e 61 6d 65 |.NAME: G|etDbName|
|00000080| 0d 0a 0d 0a 44 45 53 43 | 3a 20 54 68 69 73 20 66 |....DESC|: This f|
|00000090| 75 6e 63 74 69 6f 6e 20 | 65 78 74 72 61 63 74 73 |unction |extracts|
|000000a0| 20 74 68 65 20 64 61 74 | 61 62 61 73 65 20 70 61 | the dat|abase pa|
|000000b0| 74 68 2f 66 69 6c 65 6e | 61 6d 65 20 66 72 6f 6d |th/filen|ame from|
|000000c0| 20 61 20 44 6f 6d 69 6e | 6f 20 55 52 4c 2e 0d 0a | a Domin|o URL...|
|000000d0| 0d 0a 0d 0a 50 4c 41 54 | 46 4f 52 4d 53 3a 20 4c |....PLAT|FORMS: L|
|000000e0| 6f 74 75 73 20 44 6f 6d | 69 6e 6f 20 53 65 72 76 |otus Dom|ino Serv|
|000000f0| 65 72 20 34 2e 35 20 61 | 6e 64 20 68 69 67 68 65 |er 4.5 a|nd highe|
|00000100| 72 0d 0a 0d 0a 25 45 4e | 44 20 52 45 4d 0d 0a 0d |r....%EN|D REM...|
|00000110| 0a 46 75 6e 63 74 69 6f | 6e 20 47 65 74 44 62 4e |.Functio|n GetDbN|
|00000120| 61 6d 65 28 20 64 6f 6d | 69 6e 6f 55 72 6c 20 41 |ame( dom|inoUrl A|
|00000130| 73 20 53 74 72 69 6e 67 | 20 29 20 41 73 20 53 74 |s String| ) As St|
|00000140| 72 69 6e 67 0d 0a 20 20 | 44 69 6d 20 73 74 72 4c |ring.. |Dim strL|
|00000150| 65 6e 2c 20 6c 61 73 74 | 50 6f 73 2c 20 73 74 61 |en, last|Pos, sta|
|00000160| 72 74 50 6f 73 2c 20 65 | 6e 64 50 6f 73 2c 20 69 |rtPos, e|ndPos, i|
|00000170| 20 41 73 20 49 6e 74 65 | 67 65 72 0d 0a 20 20 44 | As Inte|ger.. D|
|00000180| 69 6d 20 63 20 41 73 20 | 53 74 72 69 6e 67 2c 20 |im c As |String, |
|00000190| 74 6d 70 53 74 72 69 6e | 67 20 41 73 20 53 74 72 |tmpStrin|g As Str|
|000001a0| 69 6e 67 0d 0a 20 20 0d | 0a 20 20 73 74 72 4c 65 |ing.. .|. strLe|
|000001b0| 6e 20 3d 20 4c 65 6e 28 | 20 64 6f 6d 69 6e 6f 55 |n = Len(| dominoU|
|000001c0| 72 6c 20 29 0d 0a 20 20 | 6c 61 73 74 50 6f 73 20 |rl ).. |lastPos |
|000001d0| 3d 20 73 74 72 4c 65 6e | 20 2d 20 31 0d 0a 20 20 |= strLen| - 1.. |
|000001e0| 73 74 61 72 74 50 6f 73 | 20 3d 20 38 20 27 20 41 |startPos| = 8 ' A|
|000001f0| 73 73 75 6d 65 73 20 74 | 68 65 20 73 65 72 76 65 |ssumes t|he serve|
|00000200| 72 20 6e 61 6d 65 20 69 | 73 20 70 72 65 63 65 64 |r name i|s preced|
|00000210| 65 64 20 62 79 20 22 68 | 74 74 70 3a 2f 2f 22 0d |ed by "h|ttp://".|
|00000220| 0a 20 20 0d 0a 20 20 63 | 20 3d 20 4d 69 64 28 20 |. .. c| = Mid( |
|00000230| 64 6f 6d 69 6e 6f 55 72 | 6c 2c 20 73 74 61 72 74 |dominoUr|l, start|
|00000240| 50 6f 73 2c 20 31 20 29 | 0d 0a 20 20 0d 0a 20 20 |Pos, 1 )|.. .. |
|00000250| 57 68 69 6c 65 20 28 20 | 63 20 3c 3e 20 22 2f 22 |While ( |c <> "/"|
|00000260| 20 41 6e 64 20 63 20 3c | 3e 20 22 5c 22 20 26 20 | And c <|> "\" & |
|00000270| 73 74 61 72 74 50 6f 73 | 20 3c 20 6c 61 73 74 50 |startPos| < lastP|
|00000280| 6f 73 20 29 0d 0a 20 20 | 20 20 73 74 61 72 74 50 |os ).. | startP|
|00000290| 6f 73 20 3d 20 73 74 61 | 72 74 50 6f 73 20 2b 20 |os = sta|rtPos + |
|000002a0| 31 0d 0a 20 20 20 20 63 | 20 3d 20 4d 69 64 28 20 |1.. c| = Mid( |
|000002b0| 64 6f 6d 69 6e 6f 55 72 | 6c 2c 20 73 74 61 72 74 |dominoUr|l, start|
|000002c0| 50 6f 73 2c 20 31 20 29 | 0d 0a 20 20 57 65 6e 64 |Pos, 1 )|.. Wend|
|000002d0| 0d 0a 20 20 0d 0a 20 20 | 73 74 61 72 74 50 6f 73 |.. .. |startPos|
|000002e0| 20 3d 20 73 74 61 72 74 | 50 6f 73 20 2b 20 31 0d | = start|Pos + 1.|
|000002f0| 0a 20 20 74 6d 70 53 74 | 72 69 6e 67 20 3d 20 4d |. tmpSt|ring = M|
|00000300| 69 64 28 20 64 6f 6d 69 | 6e 6f 55 72 6c 2c 20 73 |id( domi|noUrl, s|
|00000310| 74 61 72 74 50 6f 73 2c | 20 28 20 73 74 72 4c 65 |tartPos,| ( strLe|
|00000320| 6e 20 2d 20 73 74 61 72 | 74 50 6f 73 20 29 20 2b |n - star|tPos ) +|
|00000330| 20 31 20 29 0d 0a 20 20 | 73 74 72 4c 65 6e 20 3d | 1 ).. |strLen =|
|00000340| 20 4c 65 6e 28 20 74 6d | 70 53 74 72 69 6e 67 20 | Len( tm|pString |
|00000350| 29 0d 0a 20 20 6c 61 73 | 74 50 6f 73 20 3d 20 73 |).. las|tPos = s|
|00000360| 74 72 4c 65 6e 20 2d 20 | 31 0d 0a 20 20 65 6e 64 |trLen - |1.. end|
|00000370| 50 6f 73 20 3d 20 49 6e | 53 74 72 28 20 74 6d 70 |Pos = In|Str( tmp|
|00000380| 53 74 72 69 6e 67 2c 20 | 22 2e 6e 73 66 22 20 29 |String, |".nsf" )|
|00000390| 20 2b 20 33 0d 0a 20 20 | 0d 0a 20 20 47 65 74 44 | + 3.. |.. GetD|
|000003a0| 62 4e 61 6d 65 20 3d 20 | 4d 69 64 28 20 74 6d 70 |bName = |Mid( tmp|
|000003b0| 53 74 72 69 6e 67 2c 20 | 31 2c 20 65 6e 64 50 6f |String, |1, endPo|
|000003c0| 73 20 29 0d 0a 45 6e 64 | 20 46 75 6e 63 74 69 6f |s )..End| Functio|
|000003d0| 6e 0d 0a 03 00 00 00 4e | 2f 41 03 00 00 00 4e 2f |n......N|/A....N/|
|000003e0| 41 | |A | |
+--------+-------------------------+-------------------------+--------+--------+