LISP的类C语言Format函数 , strcat的替代方案 - ObjectARX/VC++ 编程技术 - AutoCAD论坛 - 明经CAD社区

vectra 发表于 2008-3-23 17:23:00

LISP的类C语言Format函数, strcat的替代方案

R2004~2006适用，无限制，加载无提示信息，可自由使用通过 LISP 加载(arxload "mtutil16.arx")调用Formats string similar to the sprintf
C-Runtime library function.<hr/><h4>Syntax </h4>(vl_strformat  format arg1 arg2 ...) <h4>Parameters </h4>formatA string that contains the text to be formatted. It can optionally contain embedded format tags that are substituted by the values specified in subsequent argument(s) and formatted as requested. The number of arguments following the format parameters should at least be as much as the number of format tags.  The format tags follow this prototype: %[.precision]specifier
 Where specifier is the most significant one and defines the type and the interpretation of the value of the corresponding argument: <table cellspacing="0" width="100%" x-use-null-cells="" style="WIDTH: 100%; x-cell-content-align: top; border-spacing: 0;"><colgroup><col style="WIDTH: 10.85%;"></col><col style="WIDTH: 76.44%;"></col><col style="WIDTH: 12.84%;"></col></colgroup><tbody><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Specifier</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Output</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Example</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">c</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Character</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">a</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">d or i</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Signed decimal integer</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">392</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">e</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Scientific notation (/exponent) using e character</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">3.9265e+2</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">E</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Scientific notation (exponent) using E character</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">3.9265E+2</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">f</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Decimal floating point</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">392.65</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">g</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Use the shorter of %e or %f</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">392.65</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">G</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Use the shorter of %E or %f</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">392.65</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">o</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Signed octal</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">610</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">s</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">String of characters</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">sample</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">u</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Unsigned decimal integer</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">7235</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">x</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Unsigned hexadecimal integer</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">7fa</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">X</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Unsigned hexadecimal integer (capital letters)</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">7FA</td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">n</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Nothing printed. The argument must be a pointer to a signed integer, where the number of characters written so far is stored.</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;"> </td></tr><tr valign="top"><td width="10.85%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">%</td><td width="76.44%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">A % followed by another % character will write % to the string.</td><td width="12.84%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;"> </td></tr></tbody></table> The tag can also contain flags, width, .precision and modifiers sub-specifiers, which are optional and follow these specifications:  <table cellspacing="0" width="100%" x-use-null-cells="" style="WIDTH: 100%; x-cell-content-align: top; border-spacing: 0;"><colgroup><col style="WIDTH: 10.66%;"></col><col style="WIDTH: 89.33%;"></col></colgroup><tbody><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Flag</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Description</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">-</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Left-justify within the given field width; Right justification is the default (see width sub-specifier).</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">+</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Forces to proceed the result with a plus or minus sign (+ or -) even for positive numbers. By default, only negative numbers are preceded with a - sign.</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">(space)</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">If no sign is going to be written, a blank space is inserted before the value.</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">#</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Used with o, x or X specifiers the value is proceeded with 0, 0x or 0X respectively for values different than zero.Used with e, E and f, it forces the written output to contain a decimal point even if no digits would follow. By default, if no digits follow, no decimal point is written.Used with g or G the result is the same as with e or E but trailing zeros are not removed.</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">0</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Left-pads the number with zeroes (0) instead of spaces, where padding is specified (see width sub-specifier).</td></tr></tbody></table>  <table cellspacing="0" width="100%" x-use-null-cells="" style="WIDTH: 100%; x-cell-content-align: top; border-spacing: 0;"><colgroup><col style="WIDTH: 10.66%;"></col><col style="WIDTH: 89.33%;"></col></colgroup><tbody><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Width</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Description</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">number</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Minimum number of characters to be printed. If the value to be printed is shorter than this number, the result is padded with blank spaces. The value is not truncated even if the result is larger.</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">*</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">The width is not specified in the format string, but as an additional integer value argument proceeded the argument that has to be formatted.</td></tr></tbody></table>  <table cellspacing="0" width="100%" x-use-null-cells="" style="WIDTH: 100%; x-cell-content-align: top; border-spacing: 0;"><colgroup><col style="WIDTH: 10.66%;"></col><col style="WIDTH: 89.33%;"></col></colgroup><tbody><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Precision</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Description</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">number</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">For integer specifiers (d, i, o, u, x, X): precision specifies the minimum number of digits to be written. If the value to be written is shorter than this number, the result is padded with leading zeros. The value is not truncated even if the result is longer. A precision of 0 means that no character is written for the value 0.For e, E and f specifiers: this is the number of digits to be printed after de decimal point.For g and G specifiers: This is the maximum number of significant digits to be printed.For s: this is the maximum number of characters to be printed. By default all characters are printed until the ending null character is encountered.For c type: it has no effect.When no precision is specified, the default is 1. If the period is specified without an explicit value for precision, 0 is assumed.</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">*</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">The precision is not specified in the format string, but as an additional integer value argument preceding the argument that has to be formatted.</td></tr></tbody></table>  <table cellspacing="0" width="100%" x-use-null-cells="" style="WIDTH: 100%; x-cell-content-align: top; border-spacing: 0;"><colgroup><col style="WIDTH: 10.66%;"></col><col style="WIDTH: 89.33%;"></col></colgroup><tbody><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Length</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">Description</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">h</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">The argument is interpreted as a short integer or unsigned short integer (only applies to integer specifiers: i, d, o, u, x and X).</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">l</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">The argument is interpreted as a long int or unsigned long int for integer specifiers (i, d, o, u, x and X), and as a wide character or wide character string for specifiers c and s.</td></tr><tr valign="top"><td width="10.66%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none;">L</td><td width="89.33%" style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; BORDER-RIGHT-STYLE: none; BORDER-BOTTOM-STYLE: none;">The argument is interpreted as a long double (only applies to floating point specifiers: e, E, f, g and G). </td></tr></tbody></table> substring
Depending on the format string, the function may expect a sequence of additional arguments, each containing one value to be inserted instead of each %-tag specified in the format parameter, if any. There should be the same number of these arguments as the number of %-tags that expect a value. <h4>Returns </h4>The formatted string if successful. nil on error.

页: [1]

明经CAD社区's Archiver

LISP的类C语言Format函数, strcat的替代方案