Hola buenas, pues a ver... Tengo un Regex que lo que hace es buscar esto:

Dim Line As String = File.ReadAllText(PathArchivo)
    For Each Result As String In Line.Split(", ")
                If Not Regex.IsMatch(Result, "^'|'$") Then
                    MsgBox("Error", MsgBoxStyle.Critical, "Error")
else
msgbox(result)
                End If
    Next

El problema es cuando lee Line, puse a caso hecho una comilla de más, entre Split y Split, es decir:


El caso es que salta la advertencia de Error todo el rato, como lo hago, que estoy haciendo mal?

Un saludo.

Perdón por hacer Triple post... Si queréis unirlo a mi me da igual..

A ver... No se si es problema mío o que es lo que es...

For Each Result As String In Line.Split(",")
                If Result.Contains("'") Or Result.Contains("""") Then
                    If Not Regex.IsMatch(Result, "^'|'$") Then
                        MsgBox("Error", MsgBoxStyle.Critical, "Error")
                    Else
                        If Not CountCharacter(Result, "'") Or CountCharacter(Result, """") Mod 2 = 0 Then
                            MsgBox(Result)
                        Else
                            MsgBox("Error", MsgBoxStyle.Critical, "Error")
                        End If
                    End If
                Else
                    MsgBox(Result)
                End If
            Next

Archivo txt:


Hasta aquí todo correcto, el problema es cuando empieza a Splitear, he comprobado de que no me pone nada tal que " NULL", o cualquier cosa con:

MsgBox("""" & Result & """")

Ostias, ahora me estoy dando cuenta de que no hay espacios entre las comas... xD
PD: Así que no es problema del Spliteo...

---

Pero por igual me sigue fallando la clasificatoria...

A ver... Todos me los muestra y ninguno me sale como Error, y hay 2 errores intencionados...

'dhdhfh y el otro ''dfdfdfd'

Deberían saltar 2 errores pero en vez de eso, saltan las MsgBox como si nada pasase....

Que estoy haciendo mal? Que alguien me lo explique...

PD: CountCharacter(Result, "'") cuenta cuantas ' y " hay... Hay no hay problema hay he probado sin el MsgBox Result y me muestra que en uno hay 1 y en el otro hay 3

    Public Function CountCharacter(ByVal value As String, ByVal ch As Char) As Integer
        Dim cnt As Integer = 0
        For Each c As Char In value
            If c = ch Then cnt += 1
        Next
        Return cnt
    End Function

---

He probado el Operador Mod con:

MsgBox(3 Mod 2 = 0)

y nada, si que lo hace bien... Según he leido por ahí, esto lo usan pa saber si es Par o Impar... En caso de que fuese Impar saltaría el error... Pero no salta... Creo que lo clasifica en:

For Each Result As String In Line.Split(",")
                If Result.Contains("'") Or Result.Contains("""") Then
                    If Not Regex.IsMatch(Result, "^'|'$") Then
                        '... Todo este contenido se lo salta D:
                    Else
                        MsgBox(Result)
                    End If
                Else
                    MsgBox(Result)
                End If

Que puedo hacer? D:

---

He probado a poner:

MsgBox("Esta cadena contiene "" o ' en su interior...")

Y parece que si salta la advertertencia... Es decir que el error esta si o si, al final cuando lo va a detectar...

For Each Result As String In Line.Split(",")
                If Regex.IsMatch(Result, "'") Or Regex.IsMatch(Result, """") Then
                    MsgBox("Esta cadena contiene "" o ' en su interior...")
                    If Not Regex.IsMatch(Result, "^'|'$") Then
                        MsgBox("Esta cadena contiene "" o ' en su interior...3")
                        MsgBox("Error", MsgBoxStyle.Critical, "Error")
                    Else
                        MsgBox("Esta cadena contiene "" o ' en su interior...2")
                        If Not CountCharacter(Result, "'") Or CountCharacter(Result, """") Mod 2 = 0 Then
                            MsgBox("Esta cadena contiene "" o ' en su interior...5")
                            MsgBox(Result)
                        Else
                            MsgBox("Esta cadena contiene "" o ' en su interior...6")
                            MsgBox("Error", MsgBoxStyle.Critical, "Error")
                        End If
                    End If
                Else
                    MsgBox(Result)
                End If

Siempre es lo mismo 1, 2, 5... Es decir que el error por descarte para 'dhdhfh está en la línea 4 y el otro ''dfdfdfd' está en la línea 9...

Lo estoy haciendo de alguna forma en la que los Ifs se los pasan por el Forro...

---

Si le cambio el orden, a esto:

                        If Not CountCharacter(Result, "'") Or CountCharacter(Result, """") Mod 2 = 0Then
                            MsgBox("Esta cadena contiene "" o ' en su interior...5")
                            MsgBox(Result)
                        Else
                            MsgBox("Esta cadena contiene "" o ' en su interior...6")
                            MsgBox("Error", MsgBoxStyle.Critical, "Error")
                        End If

Por esto:

                        If Not CountCharacter(Result, "'") Or CountCharacter(Result, """") Mod 2 = 0 Then
                            MsgBox("Esta cadena contiene "" o ' en su interior...6")
                            MsgBox("Error", MsgBoxStyle.Critical, "Error")
                        Else
                            MsgBox("Esta cadena contiene "" o ' en su interior...5")
                            MsgBox(Result)
                        End If

Tira todo el rato para 1,2,6 p**a lógica...

Te las he visto usar varias veces... Voy a ver lo que puedo sacar...


Bueno a ver te lo explico... Mi app lo que hace es limpiar las strings, como puedes ver hay una string mal hecha que si la abres con el Sublime text en SQL:

http://pastebin.com/Siy0gK67

Puedes ver lo que pasa...


Para ver si la string está formulada correctamente...


Para así poder saber si por igual está bien hecha, es decir, puede que a veces haya una string así:

un token, 'otro token con algo de texto, error' y más texto', otro token

Si en ese token: 'otro token con algo de texto, error' y más texto' hay 3 (numero impar) o más de 3 comillas ya significa que algo no está bien.


Ya lo he explicado, y bueno, pues la finalidad es limpiar Strings de un SQL que se haya exportado mal desde otro programa...


Ya te lo he explicado... xD



Trampas, quien ha dicho trampas, si me lo explicases a que te refieres, no veo trampas... O si? No se... xD


Pues por ejemplo uno de los resultados es Escapar la String, por ejemplo en ese tan bonito token 'otro token con algo de texto, error' y más texto', pues:

'otro token con algo de texto, error\' y más texto'

Ale ya te he explicao lo que quiero hacer... Seguro que ahora los de la CIA me cogen la patente... xD

---

Select Case Result
                    Case Regex.IsMatch(Result, "^'|'$") = False Or Regex.IsMatch(Result, "^""|""$") = False
                        MsgBox("Error: #1")
                    Case CountCharacter(Result, "'") Mod 2 = True Or CountCharacter(Result, """") Mod 2 = True
                        MsgBox("Error: #2")
                    Case Else
                        MsgBox(Result)
                End Select

Joder, pos si que es verdad que se ahorra texto, pero por igual no me muestra que sean errores...

Hay le has dao.


Nope.

---

Claro, lo que tu dices, hay que escapar las comillas que estén dentro de esas subcomillas... Es decir, lo primero que tu has preguntado..

Es decir:

1: 'bla 'bla' bla' -> 'bla \'bla\' bla'

2: 'bla bla' bla' -> 'bla bla\' bla'

3: 'bla 'bla' 'bla' -> 'bla 'bla' \'bla'

Correción para el 3º: 3: 'bla 'bla' 'bla' -> 'bla \'bla\' \'bla'

Ala con la tontería me has hecho la app...

            For Each Result As String In Regex.Split(Line, ",|\n")
 
                Select Case True
 
                    Case Result.StartsWith("'") AndAlso Result.EndsWith("'")
                        MsgBox(String.Format("'{0}'", Result.Substring(1, Result.Length - 2).Replace("'", "\'")))
 
                    Case Result.StartsWith("'") AndAlso Not Result.EndsWith("'")
                        MsgBox(Result & "'")
 
                    Case Result.EndsWith("'") AndAlso Not Result.StartsWith("'")
                        MsgBox("'" & Result)
 
                    Case Else
                        MsgBox(Result)
 
                End Select
            Next Result

Ahora ya solo me falta enumerar los errores y varias cosillas más pa meterlas en un Log... (Entre las cosillas, hay una que puede que a lo mejor no sepa hacer o puede que si, y es buscar la String original y sustituirla por la nueva dentro de un archivo... Veré lo que hago...

Por cierto, se me olvidaba...

¡Muchas gracias!

---

Tengo una mini-duda...

MsgBox(String.Format("'{0}'", Result.Substring(1, Result.Length - 2).Replace("'", "\'")))

En caso de que se tuviese que reemplazar algo, como hago para mostrar una MsgBox... ??

---

Otra duda que me ha asaltado... En caso de que fuese unas "" lo que hubiese que reemplazar, tengo que hacer otro Select Case o dentro del mismo?... Bueno en realidad, no se ni porque no lo hago Estoy modo l33t no te puedo fallar.

Ya lo he arreglado con:

                Select Case True
 
                    Case Result.StartsWith("'") AndAlso Result.EndsWith("'")
                        MsgBox(String.Format("'{0}'", Result.Substring(1, Result.Length - 2).Replace("'", "\'")))
 
                    Case Result.StartsWith("'") AndAlso Not Result.EndsWith("'")
                        MsgBox(Result & "'")
 
                    Case Result.EndsWith("'") AndAlso Not Result.StartsWith("'")
                        MsgBox("'" & Result)
 
                        '-----------------------
 
                    Case Result.StartsWith("""") AndAlso Result.EndsWith("""")
                        MsgBox(String.Format("""{0}""", Result.Substring(1, Result.Length - 2).Replace("""", "\""")))
 
                    Case Result.StartsWith("""") AndAlso Not Result.EndsWith("""")
                        MsgBox(Result & """")
 
                    Case Result.EndsWith("""") AndAlso Not Result.StartsWith("""")
                        MsgBox("""" & Result)
 
                    Case Else
                        MsgBox(Result)
 
                End Select

Pero la duda de las MsgBox me sigue asaltando...