frmMain Button3 Click

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            TextBox3.AppendText("Comenzando a leer y filtrar resultados del archivo...")
            Dim Texto As String = File.ReadAllText(TextBox1.Text)
            Dim Match As Match = Regex.Match(Texto, "(?<prueba>(?<=[\(]).*(?=[\)]))")
            Dim Match2 As Match = Regex.Match(Texto, "(?<prueba2>.(.*(?=[\(])))")
            'Do While Match.Success
            '    MsgBox(Match.Groups(1).ToString)
            '    Match = Match.NextMatch()
            'Loop

            Dim strStreamWriter As StreamWriter = Nothing
            Dim strStreamW As Stream = Nothing
            Dim PathArchivo As String = ".\Variables.sql"
            Dim PathArchivo2 As String = ".\INSERTS.sql"
            Dim PathArchivo3 As String = ".\preVariables.sql"
            Dim PathArchivo4 As String = ".\Variables-new.sql"

            Dim PathCarpeta As String = Replace(TextBox1.Text, PathArchivo.Substring(PathArchivo.LastIndexOf("/") + 1), "")

            'If Not Directory.Exists(PathCarpeta) Then
            '    Directory.CreateDirectory(PathCarpeta)
            'End If

            TextBox3.AppendText(Environment.NewLine & "Separando archivo...")

            Do While Match.Success

                Try

                    If File.Exists(PathArchivo) Then
                        strStreamW = File.Open(PathArchivo, FileMode.Append)
                    Else
                        strStreamW = File.Create(PathArchivo)
                    End If

                    strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                    strStreamWriter.Write(Match.Groups("prueba").ToString & Environment.NewLine)
                    Match = Match.NextMatch()

                    strStreamWriter.Close()

                    strStreamW = Nothing
                    strStreamWriter = Nothing

                    If File.Exists(PathArchivo2) Then
                        strStreamW = File.Open(PathArchivo2, FileMode.Append)
                    Else
                        strStreamW = File.Create(PathArchivo2)
                    End If

                    strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                    strStreamWriter.Write(Match2.Groups("prueba2").ToString & Environment.NewLine)
                    Match2 = Match2.NextMatch()

                    strStreamWriter.Close()

                    strStreamW = Nothing
                    strStreamWriter = Nothing

                Catch ex As Exception
                    TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. ")
                    strStreamWriter.Close()
                End Try
            Loop

            Dim lines As String() = File.ReadAllLines(TextBox1.Text)

            Dim MaxCommas As Integer = CountCharacter(lines(0), ",") + 1

            Dim TimesSplitted As Integer = 0

            TextBox3.AppendText(Environment.NewLine & "Leyendo todas las líneas del archivo...")

            Dim Line As String = File.ReadAllText(PathArchivo)

            'Dim Result As String() = Line.Split(", ")

            TextBox3.AppendText(Environment.NewLine & "Corrigiendo errores del Strings...")

            Dim RegReplace As String = Regex.Replace(Line, "\n", ",")

            For Each Result As String In Regex.Split(RegReplace, ",")

                Select Case True

                    Case Result.StartsWith("'") AndAlso Result.EndsWith("'")
                        Dim posResultado = Result
                        Dim preResultado = String.Format("'{0}'", Result.Substring(1, Result.Length - 2).Replace("'", "\'"))
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write(preResultado & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                    Case Result.StartsWith("'") AndAlso Not Result.EndsWith("'")
                        Dim posResultado = Result
                        Dim preResultado As String = String.Format("'{0}", Result.Substring(1, Result.Length - 1).Replace("'", "\'"))
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write(preResultado & "'" & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error #1: [Faltaba la última comilla])")
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                    Case Not Result.StartsWith("'") AndAlso Result.EndsWith("'")
                        Dim posResultado = Result
                        Dim preResultado As String = Result.Replace("'", "\'")
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write("'" & preResultado & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error: #2: [Faltaba la primera comilla])")
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                    Case Not Result.StartsWith("'") AndAlso Not Result.EndsWith("'") AndAlso Result.Contains("'")
                        Dim posResultado = Result
                        Dim preResultado As String = String.Format("{0}", Result.Replace("'", "\'"))
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write("'" & preResultado & "'" & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error: #3: [Faltaban las comillas de extremos])")
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                        '-----------------------

                    Case Result.StartsWith("""") AndAlso Result.EndsWith("""")
                        Dim posResultado = Result
                        Dim preResultado = String.Format("""{0}""", Result.Substring(1, Result.Length - 2).Replace("""", "\"""))
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write(preResultado & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                    Case Result.StartsWith("""") AndAlso Not Result.EndsWith("""")
                        Dim posResultado = Result
                        Dim preResultado As String = String.Format("""{0}", Result.Substring(1, Result.Length - 1).Replace("""", "\"""))
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write(preResultado & """" & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error #1: [Faltaba la última comilla])")
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                    Case Not Result.StartsWith("""") AndAlso Result.EndsWith("""")
                        Dim posResultado = Result
                        Dim preResultado As String = Result.Replace("""", "\""")
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write("""" & preResultado & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error: #2: [Faltaba la primera comilla])")
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                    Case Not Result.StartsWith("""") AndAlso Not Result.EndsWith("""") AndAlso Result.Contains("""")
                        Dim posResultado = Result
                        Dim preResultado As String = String.Format("{0}", Result.Replace("""", "\"""))
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write("""" & preResultado & """" & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try
                        TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error: #3: [Faltaban las comillas de extremos])")
                        If Not preResultado = posResultado Then
                            TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
                        End If

                    Case Else
                        Try

                            If File.Exists(PathArchivo3) Then
                                strStreamW = File.Open(PathArchivo3, FileMode.Append)
                            Else
                                strStreamW = File.Create(PathArchivo3)
                            End If

                            strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                            Dim Splittado As String = Nothing


                            TimesSplitted += 1

                            If TimesSplitted = MaxCommas Then
                                Splittado = Environment.NewLine
                                TimesSplitted = 0
                            ElseIf TimesSplitted < MaxCommas Then
                                Splittado = ","
                            End If

                            strStreamWriter.Write(Result & Splittado)

                            strStreamWriter.Close()

                            strStreamW = Nothing
                            strStreamWriter = Nothing

                        Catch ex As Exception
                            TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. " & ex.ToString)
                            strStreamWriter.Close()
                        End Try

                End Select
            Next Result

            Dim ContentFile As String = File.ReadAllText(PathArchivo3)
            Dim prefinalText As String = Regex.Replace(ContentFile, ".[']$\n[']", "'")
            'prefinalText = Regex.Replace(ContentFile, "\\""$\n""", """")
            Dim finalText As String = Regex.Replace(prefinalText, "\n", "")

            MsgBox(ContentFile)
            MsgBox(prefinalText)
            MsgBox(finalText)

            Try


                If File.Exists(PathArchivo4) Then
                    strStreamW = File.Open(PathArchivo4, FileMode.Append)
                Else
                    strStreamW = File.Create(PathArchivo4)
                End If

                strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                strStreamWriter.Write(finalText)

                strStreamWriter.Close()

                strStreamW = Nothing
                strStreamWriter = Nothing

            Catch ex As Exception
                TextBox3.AppendText("Error al Guardar la información en el archivo. " & ex.ToString)
                strStreamWriter.Close()
            End Try

            If MsgBox("¡Proceso terminado! ¿Desea abrir el Log?", MsgBoxStyle.YesNo, "Información") = MsgBoxResult.Ok Then
                '... Texto para el Log
            End If

        Catch ex As Exception When TextBox1.Text = String.Empty
            MsgBox("¡Tienes que seleccionar un archivo!", MsgBoxStyle.Critical, "Error")
        End Try
    End Sub