Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
TextMerge
Message
De
07/02/2006 17:04:46
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
01094444
Message ID:
01094470
Vues:
15
Ok, that worked well. For bonus points, why am I getting some sort of little ascii character in the upper left corner of my text file, followed by 3 tabs? There isn't anything prior to the m.ColumnNames variable, and that is simple a text string like, "Name1,Name2" and so on.

>Change CHR(13) with CHR(13)+CHR(10) this is usual CR LF sequence, or
>
>#define CRLF CHR(13)+CHR(10)
>
>	CASE m.FileType = 'TXT'
>		Response.AddHeader("Content-Type", "application/notepad")
>		Response.AddHeader("Content-Disposition", "attachment; filename=notepad.txt")
>		SET TEXTMERGE ON
>		cHtmlOutput=""
>		TEXT TO cHtmlOutput NOSHOW ADDITIVE
>			<<m.ColumnNames>>
>		ENDTEXT
>		SELECT crsTestDownloads
>		SCAN
>				TEXT TO cHtmlOutput NOSHOW ADDITIVE
>					<<CRLF>>
>				ENDTEXT
>				FOR i = 1 TO FCOUNT()
>					IF &FieldList
>						m.FieldValue = TRANSFORM(EVAL(FIELD(i)))
>						TEXT TO cHtmlOutput NOSHOW ADDITIVE
>						     <<m.FieldValue>>
>						ENDTEXT
>					ENDIF
>				ENDFOR
>				TEXT TO cHtmlOutput NOSHOW ADDITIVE
>					<<CRLF>>
>				ENDTEXT
>		ENDSCAN
>		SET TEXTMERGE OFF
>		Response.Write(cHtmlOutput)
>
>
>
>
>>I'm expecting the CHR(13) to cause a line break, but the results from the following are all on one line. Regardless of the name of the variable "cHtmlOutput" this is just to create a TXT file.
>>
>>
>>
>>	CASE m.FileType = 'TXT'
>>		Response.AddHeader("Content-Type", "application/notepad")
>>		Response.AddHeader("Content-Disposition", "attachment; filename=notepad.txt")
>>		SET TEXTMERGE ON
>>		cHtmlOutput=""
>>		TEXT TO cHtmlOutput NOSHOW ADDITIVE
>>			<<m.ColumnNames>>
>>		ENDTEXT
>>		SELECT crsTestDownloads
>>		SCAN
>>				TEXT TO cHtmlOutput NOSHOW ADDITIVE
>>					<<CHR(13)>>
>>				ENDTEXT
>>				FOR i = 1 TO FCOUNT()
>>					IF &FieldList
>>						m.FieldValue = TRANSFORM(EVAL(FIELD(i)))
>>						TEXT TO cHtmlOutput NOSHOW ADDITIVE
>>						<<m.FieldValue>>
>>						ENDTEXT
>>					ENDIF
>>				ENDFOR
>>				TEXT TO cHtmlOutput NOSHOW ADDITIVE
>>					<<CHR(13)>>
>>				ENDTEXT
>>		ENDSCAN
>>		SET TEXTMERGE OFF
>>		Response.Write(cHtmlOutput)
>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform