Mensajes

[Hola buenas,]

Hola buenas, pues esto  me sale cuando voy a Enviar algo o mandar algún MP, y tengo que volver hacia atrás y volver a Enviar...

Por que puede salir? A alguien más le ocurre?

Un saludo.

A mi me ocurre lo mismo desde que cayo un relampago y se fue la luz, y luego pa colmo un vecino se puso ASDL pues me jodió 2 veces la señal, y normalmente los Tests de velocidad.es me dan 5 mbps, ahora me dan 500kbps a veces 1mbps.. Y ya cuando viene mi padre y se pone a descarse tropecientas catorcemil cosas por el Emule ni os cuento...

De escusa me dice, el Hamachi el hamachi... los cojones el hamachi, que cuando no está el, me va todo bien (500kb/s, 600kb/s)... Y ara me va 20kb/s o menos...

[Contraseña:]

Esto es malo?

Voy a probar las contras de mis amigos... xD



Enserio...

Contraseña: AaBbCcDdEeFfGg

Resultado:



Vaya un timo... xD

[Hola buenas,]

Hola buenas, pues hoy os traigo la app que estuve 3 días desarrollando con la ayuda de este foro y algunas cosas de Internet...

Pues bueno, con este programa se pueden limpiar String mal exportadas con algunos programas como SQL Lite Database Browser que me hizo una chapuza al Exportar la Base de Datos de mi Skype a un archivo .SQL:



Hay se puede ver una catastrofe provocada por el programita, pues todo esto, se puede convertir en color verde (lo que sería corregir toda la String)

ScreenShots de la App:



Descargas:

+ Source: http://www.mediafire.com/?jykcbm14xrs5s3u
+ Ejecutable: http://www.mediafire.com/?h5lp5nds3c7buwd

Un saludo.

No quiero parecer troll... Pero porque posteas esto aquí, supongo yo que el mejor sitio es en Dudas Generales, digo yo...

[1.-]

1.- Este no es el sitio idóneo para subir un vídeo... Creo..
2.- Zoomea el vídeo a 1280x720, o de lo contrario se van a ver esos bordes negros
3.- Graba con tu voz para hacer más corto el vídeo...
4.- No se si la música tiene copy, en caso de que tenga copy y te metan un strike por una reclamación estás jodido
5.- Buen tuto...

[Mejor explicado:]

Voy a comer y pruebo tu code

Pues esperate bicho!

Ara vengo...



Tengo un problema en el Split cuando se trata de nuevas líneas si hay comillas, por alguna razón hace esto:

...NULL, NULL, 'Final de una línea\'
'12334, NULL, 'Nueva línea jodida', NULL...

Que puedo hacer?



Mejor explicado:

A ver, tengo este input: http://pastebin.com/7LFYfVnC
Este output final de dos archivos: http://pastebin.com/bdENKrqW (INSERTS.sql) y http://pastebin.com/4NXwBnZz (Variables.sql)
Y este output (supuestamente arreglado): http://pastebin.com/qc2FUXGT

Como puedes observar, todas las líneas finales que acaben por comilla están jodidas, a ver si puedes arreglar algo tu, o por lo menos decirme lo que está mal puesto...

Estoy intentando arreglarlo con este code:

Código (vbnet) [Seleccionar] Expandir

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

           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

Este es el code general:

http://pastebin.com/ZSpJ8gcz

Siiiii, todavía me faltan poner las Booleans luego al final de todo se las pongo...



Ya he arreglado todo, ahora solo me falta lo de las booleans y el log!



No he usado Booleans, he usado esto:

Código (vbnet) [Seleccionar] Expandir

               If remError = "1" Then

               ElseIf remWarning = "1" Then

               ElseIf remMsg = "1" Then
                   TextBox3.AppendText(Environment.NewLine & "Msg: #1 (String Cambiada)")
               ElseIf remError = "1" Then
                   TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error #1: [Faltaba la última comilla])")
               ElseIf remError = "2" Then
                   TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error: #2: [Faltaba la primera comilla])")
               ElseIf remError = "3" Then
                   TextBox3.AppendText(Environment.NewLine & "Msg: #2 (String arreglada; Error: #3: [Faltaban las comillas de extremos])")
               ElseIf remError = "4" Then
                   TextBox3.AppendText(Environment.NewLine & "Error al Guardar la información en el archivo. ")
               End If

               remError = Nothing
               remWarning = Nothing
               remMsg = Nothing

Es un sistema parecido...

[Código final:]

Código final:

Código (vbnet) [Seleccionar] Expandir

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

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

           Dim TimesSplitted As Integer = 0

           For Each Result As String In Regex.Split(Line, ",|\n")

               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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

                           strStreamWriter.Write(preResultado & Splittado)

                           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 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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

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

                           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
                       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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

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

                           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
                       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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

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

                           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
                       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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

                           strStreamWriter.Write(preResultado & Splittado)

                           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 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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

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

                           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
                       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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

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

                           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
                       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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

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

                           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
                       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
                           ElseIf TimesSplitted < MaxCommas Then
                               Splittado = ","
                           End If

                           strStreamWriter.Write(Result & Splittado)

                           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

               End Select
           Next Result

Voy a comer y pruebo tu code

Una duda, así de cerca... Y sin probar nada...

Si meto ese code en primer Case que es solo comprobar si tiene comillas al principio y al final... No va a cambiar siempre que se cumpla esa condición y no cuando se reemplace...?

[Ahá...]

Ahá...

Código (vbnet) [Seleccionar] Expandir

Select Case True

                   Case Result.StartsWith("'") AndAlso Result.EndsWith("'")
                       Dim posResultado = Result
                       Dim preResultado = String.Format("'{0}'", Result.Substring(1, Result.Length - 2).Replace("'", "\'"))
                       MsgBox(preResultado)
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       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("'", "\'"))
                       MsgBox(preResultado & "'")
                       MsgBox("Msg: #2 (String arreglada; Error #1: [Faltaba la última comilla])", MsgBoxStyle.Information, "Información")
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       End If

                   Case Not Result.StartsWith("'") AndAlso Result.EndsWith("'")
                       Dim posResultado = Result
                       Dim preResultado As String = Result.Replace("'", "\'")
                       MsgBox("'" & preResultado)
                       MsgBox("Msg: #2 (String arreglada; Error: #2: [Faltaba la primera comilla])", MsgBoxStyle.Information, "Información")
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       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("'", "\'"))
                       MsgBox("'" & preResultado & "'")
                       MsgBox("Msg: #2 (String arreglada; Error: #3: [Faltaban las comillas de extremos])", MsgBoxStyle.Information, "Información")
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       End If

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

                   Case Result.StartsWith("""") AndAlso Result.EndsWith("""")
                       Dim posResultado = Result
                       Dim preResultado = String.Format("""{0}""", Result.Substring(1, Result.Length - 2).Replace("""", "\"""))
                       MsgBox(preResultado)
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       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("""", "\"""))
                       MsgBox(preResultado & """")
                       MsgBox("Msg: #2 (String arreglada; Error #1: [Faltaba la última comilla])", MsgBoxStyle.Information, "Información")
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       End If

                   Case Not Result.StartsWith("""") AndAlso Result.EndsWith("""")
                       Dim posResultado = Result
                       Dim preResultado As String = Result.Replace("""", "\""")
                       MsgBox("""" & preResultado)
                       MsgBox("Msg: #2 (String arreglada; Error: #2: [Faltaba la primera comilla])", MsgBoxStyle.Information, "Información")
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       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("""", "\"""))
                       MsgBox("""" & preResultado & """")
                       MsgBox("Msg: #2 (String arreglada; Error: #3: [Faltaban las comillas de extremos])", MsgBoxStyle.Information, "Información")
                       If Not preResultado = posResultado Then
                           MsgBox("Msg: #1 (String Cambiada)", MsgBoxStyle.Information, "Información")
                       End If

                   Case Else
                       MsgBox(Result)

               End Select

Yo he usado un If, si quieres mejorar mi Snippet... Pues mejor...

Para dudas que estén dentro de este code, pero no tenga que ver con el Regex ni el IsMatch, creo un nuevo topic o con este ya vale?