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;
