Making ColdFusion's QueryNew() More Readable

code-1.cfm

<!--- Create the columns definitions for query new. --->
<cfsavecontent variable="strColumns">
	data :: VARCHAR,
	rfid :: VARCHAR,
	date :: VARCHAR,
	time :: VARCHAR,
	gross :: VARCHAR,
	tare :: VARCHAR,
	net :: VARCHAR,
	level :: VARCHAR,
	rollover_id :: VARCHAR,
	rb_dollars :: DECIMAL,
	is_valid :: INTEGER,
	is_invalid_account :: INTEGER,
	is_invalid_entry :: INTEGER,
	is_invalid_gross :: INTEGER,
	is_invalid_tare :: INTEGER,
	is_invalid_net :: INTEGER,
	is_duplicate_credit :: INTEGER,
	useraccount_id :: VARCHAR,
	rfid_count :: VARCHAR,
	address_id :: VARCHAR,
	street1 :: VARCHAR,
	street2 :: VARCHAR,
	city :: VARCHAR,
	state :: VARCHAR,
	zip :: VARCHAR
</cfsavecontent>

<!---
	Manually create a query using the column mapping
	defined in the CFSaveContent tag above.
--->
<cfset qCredit = QueryNew(
	<!--- Column names. --->
	strColumns.ReplaceAll( "\s*::[^,]+", "" ).ReplaceAll( ",\s*", ", " ).Trim(),

	<!--- Column types. --->
	strColumns.ReplaceAll( ",[^:]+::\s*", ", " ).ReplaceAll( "^[^:]+::\s*", "" ).Trim()
	) />

code-2.cfm

<cfset qCredit = QueryNew(
	"data, rfid, date, time, gross, tare, net, level, rolloverid, rb_dollars, is_valid, is_invalid_account, is_invalid_entry, is_invalid_tare, is_duplicate_credit, useraccount_id, rfid_count, address_id, street1, street2, city, state, zip",
	"VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, DECIMAL, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR"
	) />

code-3.cfm

<sys:querynew name="qCredit">
	data :: VARCHAR,
	rfid :: VARCHAR,
	date :: VARCHAR,
	time :: VARCHAR,
	gross :: VARCHAR,
	tare :: VARCHAR,
	net :: VARCHAR,
	level :: VARCHAR,
	rollover_id :: VARCHAR,
	rb_dollars :: DECIMAL,
	is_valid :: INTEGER,
	is_invalid_account :: INTEGER,
	is_invalid_entry :: INTEGER,
	is_invalid_gross :: INTEGER,
	is_invalid_tare :: INTEGER,
	is_invalid_net :: INTEGER,
	is_duplicate_credit :: INTEGER,
	useraccount_id :: VARCHAR,
	rfid_count :: VARCHAR,
	address_id :: VARCHAR,
	street1 :: VARCHAR,
	street2 :: VARCHAR,
	city :: VARCHAR,
	state :: VARCHAR,
	zip :: VARCHAR
</sys:querynew>