home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / macros.pak / GREETING.MAC < prev    next >
Unknown  |  1995-08-24  |  1017 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
66% dexvert MacPaint Image (image/macPaint) ext Supported
1% dexvert Installer VISE Package (archive/installerVISE) ext Unsupported
1% dexvert Platinen Layout Programm Macro (other/platinenLayoutProgrammMacro) ext Unsupported
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 02 5b 06 54 4d 61 63 72 | 6f 06 00 08 47 72 65 65 |.[.TMacr|o...Gree|
|00000010| 74 69 6e 67 57 54 68 69 | 73 20 6d 61 63 72 6f 20 |tingWThi|s macro |
|00000020| 64 69 73 70 6c 61 79 73 | 20 61 20 67 72 65 65 74 |displays| a greet|
|00000030| 69 6e 67 2c 20 75 73 69 | 6e 67 20 74 68 65 20 6e |ing, usi|ng the n|
|00000040| 61 6d 65 20 73 74 6f 72 | 65 64 20 69 6e 20 74 68 |ame stor|ed in th|
|00000050| 65 20 55 53 45 52 20 65 | 6e 76 69 72 6f 6e 6d 65 |e USER e|nvironme|
|00000060| 6e 74 20 76 61 72 69 61 | 62 6c 65 2e 6d 03 27 20 |nt varia|ble.m.' |
|00000070| 54 68 69 73 20 6d 61 63 | 72 6f 20 67 65 74 73 20 |This mac|ro gets |
|00000080| 74 68 65 20 75 73 65 72 | 20 6e 61 6d 65 20 66 72 |the user| name fr|
|00000090| 6f 6d 20 74 68 65 20 55 | 53 45 52 20 65 6e 76 69 |om the U|SER envi|
|000000a0| 72 6f 6e 6d 65 6e 74 20 | 76 61 72 69 61 62 6c 65 |ronment |variable|
|000000b0| 20 61 6e 64 20 0d 0a 27 | 20 64 69 73 70 6c 61 79 | and ..'| display|
|000000c0| 73 20 61 20 67 72 65 65 | 74 69 6e 67 2e 20 20 41 |s a gree|ting. A|
|000000d0| 20 6d 61 63 72 6f 20 6c | 69 6b 65 20 74 68 69 73 | macro l|ike this|
|000000e0| 20 63 6f 75 6c 64 20 62 | 65 20 6c 69 6e 6b 65 64 | could b|e linked|
|000000f0| 20 74 6f 20 74 68 65 20 | 6f 70 65 6e 69 6e 67 20 | to the |opening |
|00000100| 6f 66 20 20 0d 0a 27 20 | 52 65 70 6f 72 74 53 6d |of ..' |ReportSm|
|00000110| 69 74 68 2c 20 74 68 65 | 20 6f 70 65 6e 69 6e 67 |ith, the| opening|
|00000120| 20 6f 66 20 73 70 65 63 | 69 66 69 63 20 72 65 70 | of spec|ific rep|
|00000130| 6f 72 74 20 6f 72 20 62 | 6f 74 68 2e 0d 0a 0d 0a |ort or b|oth.....|
|00000140| 53 75 62 20 47 72 65 65 | 74 69 6e 67 28 29 0d 0a |Sub Gree|ting()..|
|00000150| 0d 0a 20 20 27 20 55 73 | 65 20 74 68 65 20 45 6e |.. ' Us|e the En|
|00000160| 76 69 72 6f 6e 20 66 75 | 6e 63 74 69 6f 6e 20 74 |viron fu|nction t|
|00000170| 6f 20 67 65 74 20 74 68 | 65 20 75 73 65 72 20 6e |o get th|e user n|
|00000180| 61 6d 65 20 61 6e 64 20 | 73 74 6f 72 65 20 69 74 |ame and |store it|
|00000190| 20 69 6e 20 61 20 73 74 | 72 69 6e 67 20 76 61 72 | in a st|ring var|
|000001a0| 69 61 62 6c 65 2e 0d 0a | 20 20 27 20 59 6f 75 20 |iable...| ' You |
|000001b0| 63 6f 75 6c 64 20 75 73 | 65 20 74 68 69 73 20 66 |could us|e this f|
|000001c0| 75 6e 63 74 69 6f 6e 20 | 74 6f 20 67 65 74 20 6f |unction |to get o|
|000001d0| 74 68 65 72 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |ther env|ironment|
|000001e0| 20 76 61 72 69 61 62 6c | 65 73 20 73 75 63 68 20 | variabl|es such |
|000001f0| 61 73 20 50 41 54 48 2e | 0d 0a 0d 0a 20 20 55 73 |as PATH.|.... Us|
|00000200| 65 72 4e 61 6d 65 24 20 | 3d 20 45 6e 76 69 72 6f |erName$ |= Enviro|
|00000210| 6e 24 28 22 55 53 45 52 | 22 29 20 0d 0a 20 20 20 |n$("USER|") .. |
|00000220| 0d 0a 20 20 27 20 49 66 | 20 74 68 65 20 55 53 45 |.. ' If| the USE|
|00000230| 52 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 76 61 |R enviro|nment va|
|00000240| 72 69 61 62 6c 65 20 69 | 73 20 6e 6f 74 20 64 65 |riable i|s not de|
|00000250| 66 69 6e 65 64 20 61 20 | 6e 75 6c 6c 20 73 74 72 |fined a |null str|
|00000260| 69 6e 67 20 77 69 6c 6c | 20 62 65 20 72 65 74 75 |ing will| be retu|
|00000270| 72 6e 65 64 2e 0d 0a 20 | 20 0d 0a 20 20 49 66 20 |rned... | .. If |
|00000280| 55 73 65 72 4e 61 6d 65 | 24 20 3d 20 22 22 20 74 |UserName|$ = "" t|
|00000290| 68 65 6e 20 0d 0a 20 20 | 0d 0a 20 20 20 20 27 20 |hen .. |.. ' |
|000002a0| 49 66 20 77 65 20 67 65 | 74 20 68 65 72 65 2c 20 |If we ge|t here, |
|000002b0| 74 68 65 6e 20 6e 6f 20 | 55 53 45 52 20 6e 61 6d |then no |USER nam|
|000002c0| 65 20 77 61 73 20 64 65 | 66 69 6e 65 64 2e 0d 0a |e was de|fined...|
|000002d0| 20 0d 0a 20 20 20 20 4d | 73 67 42 6f 78 20 22 20 | .. M|sgBox " |
|000002e0| 57 65 6c 63 6f 6d 65 20 | 74 6f 20 74 68 65 20 53 |Welcome |to the S|
|000002f0| 61 6d 70 6c 65 20 4d 61 | 63 72 6f 20 52 65 70 6f |ample Ma|cro Repo|
|00000300| 72 74 20 22 2c 30 2c 22 | 20 4d 61 63 72 6f 20 47 |rt ",0,"| Macro G|
|00000310| 72 65 65 74 69 6e 67 20 | 22 0d 0a 20 20 0d 0a 20 |reeting |".. .. |
|00000320| 20 65 6c 73 65 0d 0a 20 | 20 20 20 20 0d 0a 20 20 | else.. | .. |
|00000330| 20 20 20 27 20 41 20 75 | 73 65 72 20 6e 61 6d 65 | ' A u|ser name|
|00000340| 20 77 61 73 20 64 65 66 | 69 6e 65 64 2c 20 73 6f | was def|ined, so|
|00000350| 20 75 73 65 20 69 74 2e | 0d 0a 0d 0a 20 20 20 20 | use it.|.... |
|00000360| 20 4d 73 67 42 6f 78 20 | 22 48 65 6c 6c 6f 22 20 | MsgBox |"Hello" |
|00000370| 2b 20 55 73 65 72 4e 61 | 6d 65 24 20 2b 20 22 2c |+ UserNa|me$ + ",|
|00000380| 20 57 65 6c 63 6f 6d 65 | 20 74 6f 20 74 68 65 20 | Welcome| to the |
|00000390| 53 61 6d 70 6c 65 20 4d | 61 63 72 6f 20 52 65 70 |Sample M|acro Rep|
|000003a0| 6f 72 74 20 22 2c 30 2c | 22 50 65 72 73 6f 6e 61 |ort ",0,|"Persona|
|000003b0| 6c 20 20 4d 61 63 72 6f | 20 47 72 65 65 74 69 6e |l Macro| Greetin|
|000003c0| 67 20 22 0d 0a 20 0d 0a | 20 20 45 6e 64 20 49 66 |g ".. ..| End If|
|000003d0| 0d 0a 0d 0a 45 6e 64 20 | 53 75 62 ff ff 18 43 3a |....End |Sub...C:|
|000003e0| 5c 4e 45 57 4d 41 43 52 | 4f 5c 47 52 45 45 54 49 |\NEWMACR|O\GREETI|
|000003f0| 4e 47 2e 4d 41 43 00 00 | 5d |NG.MAC..|] |
+--------+-------------------------+-------------------------+--------+--------+