Localizing IOS apps from Android XML strings

I have been working on an Android app that I am now transferring to IOS. As one might expect, the method of localizing the strings is different and so I wrote this Visual Studio macro to take XML string resources from my MonoDroid apps written using Visual Studio and convert them to equivalent Localizable.strings files that might be used in MonoTouch.

Enjoy.

    Sub AndroidStringsToIOSLocalizable()

        DTE.ActiveDocument.Selection.PageUp(False, 99)        DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)

        DTE.ExecuteCommand("Edit.Find")

        DTE.Find.FindWhat = "<?"

        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument

        DTE.Find.MatchCase = False

        DTE.Find.MatchWholeWord = False

        DTE.Find.Backwards = False

        DTE.Find.MatchInHiddenText = False

        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        DTE.Find.Action = vsFindAction.vsFindActionFind

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.ActiveDocument.Selection.EndOfLine(True)

        DTE.ActiveDocument.Selection.Delete(2)

        DTE.ExecuteCommand("Edit.Find")

        DTE.Find.FindWhat = "<resources>"

        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument

        DTE.Find.MatchCase = False

        DTE.Find.MatchWholeWord = False

        DTE.Find.Backwards = False

        DTE.Find.MatchInHiddenText = False

        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        DTE.Find.Action = vsFindAction.vsFindActionFind

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.ActiveDocument.Selection.EndOfLine(True)

        DTE.ActiveDocument.Selection.Delete(2)

        DTE.ExecuteCommand("Edit.Replace")

        DTE.Find.Action = vsFindAction.vsFindActionReplaceAll

        DTE.Find.FindWhat = "<string name="

        DTE.Find.ReplaceWith = ""

        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument

        DTE.Find.MatchCase = False

        DTE.Find.MatchWholeWord = False

        DTE.Find.MatchInHiddenText = False

        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        DTE.Find.ResultsLocation = vsFindResultsLocation.vsFindResultsNone

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.Find.FindWhat = "</string>"

        DTE.Find.ReplaceWith = """;"

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.ExecuteCommand("Edit.Replace")

        DTE.Find.FindWhat = """>"

        DTE.Find.ReplaceWith = """ = """

        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument

        DTE.Find.MatchCase = False

        DTE.Find.MatchWholeWord = False

        DTE.Find.MatchInHiddenText = False

        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        DTE.Find.ResultsLocation = vsFindResultsLocation.vsFindResultsNone

        DTE.Find.Action = vsFindAction.vsFindActionReplaceAll

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.ExecuteCommand("Edit.Replace")

        DTE.Find.FindWhat = "<!--"

        DTE.Find.ReplaceWith = "/* "

        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument

        DTE.Find.MatchCase = False

        DTE.Find.MatchWholeWord = False

        DTE.Find.MatchInHiddenText = False

        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        DTE.Find.ResultsLocation = vsFindResultsLocation.vsFindResultsNone

        DTE.Find.Action = vsFindAction.vsFindActionReplaceAll

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.ExecuteCommand("Edit.Replace")

        DTE.Find.FindWhat = "-->"

        DTE.Find.ReplaceWith = "= */"

        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument

        DTE.Find.MatchCase = False

        DTE.Find.MatchWholeWord = False

        DTE.Find.MatchInHiddenText = False

        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        DTE.Find.ResultsLocation = vsFindResultsLocation.vsFindResultsNone

        DTE.Find.Action = vsFindAction.vsFindActionReplaceAll

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.ExecuteCommand("Edit.Find")

        DTE.Find.FindWhat = "</re"

        DTE.Find.Action = vsFindAction.vsFindActionFind

        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument

        DTE.Find.MatchCase = False

        DTE.Find.MatchWholeWord = False

        DTE.Find.Backwards = False

        DTE.Find.MatchInHiddenText = False

        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then

            Throw New System.Exception("vsFindResultNotFound")

        End If

        DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)

        DTE.ActiveDocument.Selection.EndOfLine(True)

        DTE.ActiveDocument.Selection.DeleteLeft(2)

        DTE.ActiveDocument.Save("Localizable.strings")

        DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)

    End Sub