comments fields to outbound as xl file:

While comments fields to outbound as xl file, we will face some problems because of tabs ,new line chars and special chars so I searched in internet and I fund some logic and I added some logic to that code Below is code this will help adding commets to xl file

Function F2(&String As string) Returns string

Local string &sCurrChar, &sTmpStr;

Local number &nPos, &nLen;

Local string &VALID = "~`!#$%^&*()_|\{}[]:'<>?\/"; /* Special chars can be allowed */

&sStr = &String; &sTmpStr = RTrim(LTrim(&sStr));

 /* Trim blank spaces before and after string */

 If IsAlphaNumeric(&sTmpStr) Or IsDigits(&sTmpStr) Then

/* Return String if already IsAlphanNumeric */

       Return &sTmpStr;

Else

     &sTmpStr = Substitute(&sTmpStr, "-", "_");

     &nLen = Len(&sTmpStr);

    /* Get Length of string */

      &nPos = 1;

  /* Set initial position */

 While &nPos <= &nLen   

/* Loop through string one character at a time and strip out non alpha character. */

 &sCurrChar = Substring(&sTmpStr, &nPos, 1);

 /* Get one character from string at the current position */

 If IsAlphaNumeric(&sCurrChar) Then

/* Check if alpha character or space */

&nPos = &nPos + 1; /* Increment current position */

Else &V = Find(&sCurrChar, &VALID);

/* Leave spaces and some Special chars inside of string */

If &sCurrChar = " " Or &V > 0 Then

&nPos = &nPos + 1;

 /* Increment current position */

Else

    If &nPos < &nLen Then

       &sTmpStr = Substring(&sTmpStr, 1, &nPos - 1) | Substring(&sTmpStr, &nPos + 1, &nLen - &nPos);

/* Remove non-alpha character */

 &nLen = Len(&sTmpStr);

/* Get new length of string */

             Else /* Last character */
                     Return Substring(&sTmpStr, 1, &nPos - 1);
/* Return string without last character */
End-If;
 End-If;
End-If;
End-While;
End-If;
Return &sTmpStr;
End-Function;