how to conver the C# code into VBA?

[krish]

Hi,

Could someone help me to convert the following code in to VBa? Appreciate your help. thanks.

private static string ampersandReplacement = "&#" + ((int)'&') + ";";
        private static string singleQuoteReplacement = "&#" + ((int)'\'') + ";";
        private static string doubleQuoteReplacement = "&#" + ((int)'"') + ";";
        private static string lessThanReplacement = "&#" + ((int)'<') + ";";
        private static string greaterThanReplacement = "&#" + ((int)'>') + ";";


 public static String substituteString(String originalStr)
        {
            

            // string substituteString(stringtring originalStr)
            
            if (originalStr == null || "".Equals(originalStr))
                return "";

            StringBuilder replacedSB = new StringBuilder();

            for (int i = 0; i < originalStr.Length; i++)
            {
                char currChar = originalStr;
                switch (currChar)
                {
                    case '&':
                        replacedSB.Append(ampersandReplacement);
                        break;
                    case '\'':
                        replacedSB.Append(singleQuoteReplacement);
                        break;
                    case '"':
                        replacedSB.Append(doubleQuoteReplacement);
                        break;
                    case '<':
                        replacedSB.Append(lessThanReplacement);
                        break;
                    case '>':
                        replacedSB.Append(greaterThanReplacement);
                        break;
                    default:
                        replacedSB.Append(currChar);
                        break;
                }
            }

            return replacedSB.ToString();
        }

EDIT: added code tags - Moderator

 

[Scott Huish]

For those of us that don't program in C#, can you explain what this is supposed to do?

 

[krish]

this program replace special characters from a string with &# integer value of the special chr + ;.

if the special chr's are not replaced correctly, the xml parser will throw an exception.

 

[Scott Huish]

OK Since the ASCII code of a single quote is 39, you want this to be replaced with the text &39 + ;

Is this correct? Including the spaces between the code the + and the semicolon. Is the period the end of your sentence or do you want a period included too?

 

[pgc01]

Hi krish

Try:

Function substituteString(ByVal sStr As String) As String
Dim sSpecialChars As String, i As Integer

sSpecialChars = "&'""<>"

For i = 1 To Len(sSpecialChars)
    sStr = Replace(sStr, Mid(sSpecialChars, i, 1), "&#" & Asc(Mid(sSpecialChars, i, 1)) & ";")
Next i
substituteString = sStr
End Function

hope this helps
PGC

 

[Norie]

Krish

I really think we need some more information.

I've not programmed in C# or C++ or any of the related languages for some time but there seems to be something missing from what you posted.

 

[krish]

hi,

If have a xml <name = "vvv & xxx">, the xml parser will throw an exception. If I replace the string with,

<name = "vvv 'xxx"> , will work fine. So I am trying to replace the special chr's with &#intvalue of specialchr;

 

[Scott Huish]

Does pgc's code work for you?

 

[krish]

The code gi ven by PGC works great. Thanks a lot