home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT69 / DATA
Unknown  |  1998-10-05  |  617 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.

ConfidenceProgramDetectionMatch TypeSupport
100% file Excel 2 BIFF 2 default (weak)
99% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 09 00 00 00 44 61 79 4f | 66 57 65 65 6b 09 00 00 |....DayO|fWeek...|
|00000010| 00 44 61 79 4f 66 57 65 | 65 6b 04 00 00 00 50 65 |.DayOfWe|ek....Pe|
|00000020| 72 6c 25 00 00 00 53 63 | 72 69 70 74 20 64 65 74 |rl%...Sc|ript det|
|00000030| 65 72 6d 69 6e 65 73 20 | 74 68 65 20 64 61 79 20 |ermines |the day |
|00000040| 6f 66 20 74 68 65 20 77 | 65 65 6b 0c 02 00 00 23 |of the w|eek....#|
|00000050| 20 46 75 6e 63 74 69 6f | 6e 20 2d 20 64 61 79 20 | Functio|n - day |
|00000060| 6f 66 20 74 68 65 20 77 | 65 65 6b 20 66 75 6e 63 |of the w|eek func|
|00000070| 74 69 6f 6e 61 6c 69 74 | 79 0d 0a 23 0d 0a 23 20 |tionalit|y..#..# |
|00000080| 53 65 74 20 24 64 20 74 | 6f 20 64 61 74 65 20 28 |Set $d t|o date (|
|00000090| 31 2d 33 31 29 2c 20 24 | 6d 20 74 6f 20 6d 6f 6e |1-31), $|m to mon|
|000000a0| 74 68 20 28 31 2d 31 32 | 29 2c 20 24 79 20 74 6f |th (1-12|), $y to|
|000000b0| 20 79 65 61 72 20 28 65 | 2e 67 2e 20 31 39 39 34 | year (e|.g. 1994|
|000000c0| 29 2e 0d 0a 23 20 0d 0a | 23 20 24 64 61 79 20 68 |)...# ..|# $day h|
|000000d0| 6f 6c 64 73 20 74 68 65 | 20 76 61 6c 75 65 20 66 |olds the| value f|
|000000e0| 6f 72 20 77 68 69 63 68 | 20 64 61 79 20 69 73 20 |or which| day is |
|000000f0| 66 6f 75 6e 64 0d 0a 0d | 0a 23 21 2f 75 73 72 2f |found...|.#!/usr/|
|00000100| 6c 6f 63 61 6c 2f 62 69 | 6e 2f 70 65 72 6c 0d 0a |local/bi|n/perl..|
|00000110| 23 0d 0a 0d 0a 40 64 61 | 74 65 5f 69 6e 66 6f 20 |#....@da|te_info |
|00000120| 3d 20 73 70 6c 69 74 28 | 2f 5c 2f 2f 2c 20 24 41 |= split(|/\//, $A|
|00000130| 52 47 56 5b 30 5d 29 3b | 0d 0a 24 64 20 3d 20 24 |RGV[0]);|..$d = $|
|00000140| 64 61 74 65 5f 69 6e 66 | 6f 5b 31 5d 3b 0d 0a 24 |date_inf|o[1];..$|
|00000150| 6d 20 3d 20 24 64 61 74 | 65 5f 69 6e 66 6f 5b 30 |m = $dat|e_info[0|
|00000160| 5d 3b 0d 0a 24 79 20 3d | 20 24 64 61 74 65 5f 69 |];..$y =| $date_i|
|00000170| 6e 66 6f 5b 32 5d 3b 0d | 0a 40 64 20 3d 20 28 30 |nfo[2];.|.@d = (0|
|00000180| 2c 33 2c 32 2c 35 2c 30 | 2c 33 2c 35 2c 31 2c 34 |,3,2,5,0|,3,5,1,4|
|00000190| 2c 36 2c 32 2c 34 29 3b | 0d 0a 40 64 61 79 20 3d |,6,2,4);|..@day =|
|000001a0| 20 28 53 75 6e 64 61 79 | 2c 20 4d 6f 6e 64 61 79 | (Sunday|, Monday|
|000001b0| 2c 20 54 75 65 73 64 61 | 79 2c 20 57 65 64 6e 65 |, Tuesda|y, Wedne|
|000001c0| 73 64 61 79 2c 20 54 68 | 75 72 73 64 61 79 2c 20 |sday, Th|ursday, |
|000001d0| 46 72 69 64 61 79 2c 20 | 53 61 74 75 72 64 61 79 |Friday, |Saturday|
|000001e0| 29 3b 0d 0a 24 79 2d 2d | 20 69 66 20 24 6d 20 3c |);..$y--| if $m <|
|000001f0| 20 33 3b 0d 0a 24 64 61 | 79 20 3d 20 24 64 61 79 | 3;..$da|y = $day|
|00000200| 5b 28 24 79 2b 69 6e 74 | 28 24 79 2f 34 29 2d 69 |[($y+int|($y/4)-i|
|00000210| 6e 74 28 24 79 2f 31 30 | 30 29 2b 69 6e 74 28 24 |nt($y/10|0)+int($|
|00000220| 79 2f 34 30 30 29 2b 24 | 64 5b 24 6d 2d 31 5d 2b |y/400)+$|d[$m-1]+|
|00000230| 24 64 29 20 25 20 37 5d | 3b 0d 0a 70 72 69 6e 74 |$d) % 7]|;..print|
|00000240| 20 22 24 6d 2f 24 64 2f | 24 79 20 77 61 73 20 61 | "$m/$d/|$y was a|
|00000250| 20 24 64 61 79 5c 6e 22 | 3b 0d 0a 03 00 00 00 4e | $day\n"|;......N|
|00000260| 2f 41 03 00 00 00 4e 2f | 41 |/A....N/|A |
+--------+-------------------------+-------------------------+--------+--------+