"Ulf Christenson" <u.christen***@googlemail.com> wrote in message
news:ujFlR2AoJHA.996@TK2MSFTNGP03.phx.gbl...
>I have this code, but I don't know how to translate these IEnumerable and other tricky
>code to VB6.
> If anybody could help me it would really make my day. I cannot do it yet.
> Ulf
>
>         private class StringReplacementPermuter
>         {
>             private char[] equiChar;
>             private string inputString;
>             private int[] indexIntoString;
>             private int[] indexIntoChar;
>             public StringReplacementPermuter(string inputString, char e, char a)
>             {
>                 equiChar = new char[] { e, a };
>                 this.inputString = inputString;
>             }
>
>             public IEnumerable<string> Permute()
>             {
>                 Prepare();
>
>                 return GetReplacementStrings(0);
>             }
>
>             private void Prepare()
>             {
>                 List<int> occurenceList = new List<int>();
>                 int occurrenceAt = -1;
>                 while ((occurrenceAt = inputString.IndexOfAny(equiChar, occurrenceAt +
> 1)) != -1)
>                 {
>                     occurenceList.Add(occurrenceAt);
>                 }
>
>                 indexIntoString = occurenceList.ToArray();
>                 indexIntoChar = new int[indexIntoString.Length];
>             }
>
>             private IEnumerable<string> GetReplacementStrings(int loop)
>             {
>                 if (loop == indexIntoString.Length)
>                 {
>                     yield return ReplaceByMap();
>                 }
>                 else
>                 {
>                     for (int i = 0; i < equiChar.Length; i++)
>                     {
>                         indexIntoChar[loop] = i;
>
>                         foreach (string os in GetReplacementStrings(loop + 1))
>                         {
>                             yield return os;
>                         }
>                     }
>
>                     indexIntoChar[loop] = 0;
>                 }
>             }
>
>
>             private string ReplaceByMap()
>             {
>                 StringBuilder s = new StringBuilder(inputString);
>
>                 for (int j = 0; j < indexIntoChar.Length; j++)
>                 {
>                     s[indexIntoString[j]] = equiChar[indexIntoChar[j]];
>                 }
>
>                 return s.ToString();
>             }
>
>         }
>
>         static void Main(string[] args)
>         {
>             foreach (string s in new StringReplacementPermuter("abef", 'a',
> 'e').Permute())
>             {
>                 Console.WriteLine(s);
>             }
>
>             Console.Read();
>         }
>     }