* Sample call ParseHTML("control", .T.) FUNCTION ParseHTML(tcControlName, tlAddReturn) LOCAL lcText, ; laList[1], ; lcNewText, ; lnRows, ; lnIndex, ; lcControlName lcText = _cliptext lcNewText = "" IF VARTYPE(tcControlName) <> "C" tcControlName = "control" ENDIF lcControlName = tcControlName ALINES(laList, lcText, .T.) lnRows = ALEN(laList, 1) FOR lnIndex = 1 TO lnRows lcNewText = lcNewText + ParseLine(laList[lnIndex], lcControlName, tlAddReturn) ENDFOR lcNewText = [System.Text.StringBuilder ] + lcControlName + [ = new System.Text.StringBuilder();] + CHR(13) + CHR(13) + lcNewText _cliptext = lcNewText ENDFUNC FUNCTION ParseLine(tcText, tcControl, tlAddReturn) LOCAL lcText lcText = tcText lcText = STRTRAN(lcText, ["], [\"]) lcText = STRTRAN(lcText, CHR(9), []) IF tlAddReturn lcText = lcText + [\n] ENDIF lcText = tcControl + [.Append("] + lcText + [");] + CHR(13) RETURN lcText ENDFUNC