20 lines
526 B
Sed
20 lines
526 B
Sed
s;^[a-zA-Z]:\\;;
|
|
s;^[^:]*:;;
|
|
s;[ ][ ]*; ;g
|
|
s;\(.\)\/\/.*;\1;
|
|
s; $;;
|
|
s;^ ;;
|
|
s;^\/\/;';
|
|
s; TEXT(\(["'].*["']\)); \1;
|
|
s; ( *\(-*[0-9][xX0-9a-fA-F]*\) *); \1;
|
|
s;\<L\(["']\);\1;
|
|
/(/d
|
|
/\\$/d
|
|
s;^const WCHAR \([a-zA-Z][a-zA-Z0-9_]*\)\[ *\] = L\(".*"\)\;$;Public Const \1 As String = \2;
|
|
s;^#define \([a-zA-Z][a-zA-Z0-9_]*\) \(-*[0-9][xX0-9a-fA-F]*\)$;Public Const \1 As Long = \2;
|
|
s;^#define \([a-zA-Z][a-zA-Z0-9_]*\) L*\(".*"\)$;Public Const \1 As String = \2;
|
|
s; = 0[xX]; = \&H;
|
|
/^'/!{
|
|
/^Public Const /!d
|
|
}
|