util_escape_quotes_for_csv string
Returns its argument with double quote replaced by backslash double quote
Source code:
regsub -all {"} $string {\"} result return $result