Hola, tengo un string de JSON que devuelve mal en realidad y mete una doble comilla dentro de otra doble comilla, lo que quiero es saber como reemplazar la doble comilla, pero sin reemplazar las otras dobles comillas de las otras propiedades, por ejemplo lo que devuelve es esto:
{"accionObjeto":"post","accionTipo":"comentario","ts":"02:48:55","nick":"seba123neo","userId":"1180918","id":15521634,"accion_name":"Hola","url":"","titulo":"Hola como" estas"}
como ven todo esta bien, solo que esa doble comilla a lo ultimo la necesito reemplazar, pero sin reemplazar las otras sino el JSON es unutil.
creo que la solucion es RegEx, pero no encuentro la misma para hacer esto.
saludos.
No es tan prolijo pero así lo resolví :xD
Dim Texto As String = String.Format("{1}{0}accionObjeto{0}:{0}post{0},{0}accionTipo{0}:{0}comentario{0},{0}ts{0}:{0}02:48:55{0},{0}nick{0}:{0}seba123neo{0},{0}userId{0}:{0}1180918{0},{0}id{0}:15521634,{0}accion_name{0}:{0}Hola{0},{0}url{0}:{0}titulo{0}:{0}Hola como{0} estas{0}{2}", Convert.ToChar(34), "{", "}")
Dim Expresión As Match = Regex.Match(Texto, "\x22[\w\s]+\x22\}$")
Dim Reemplazar As String = Regex.Replace(Expresión.Value, "^\x22", "")
Texto = Texto.Replace(Expresión.Value, Reemplazar)
Console.WriteLine(Texto)
Console.ReadKey()
En la expresión regular \x22[\w\s]+\x22\}$ tienes que reemplazar [\w\s] por, más grupos porque allí solo captura números, letras y espacios en "titulo":.
Hola, gracias por responder, lo pude solucionar con algo que me paso el usuario LeandroA
Option Explicit
Private Sub Command1_Click()
Debug.Print FixJSON(Text1)
End Sub
Private Function FixJSON(ByVal sJSON As String) As String
Dim sArr() As String
Dim lPos As Long, i As Long
If Len(sJSON) = 0 Then Exit Function
sArr() = Split(sJSON, ",")
For i = 0 To UBound(sArr)
Do While UBound(Split(sArr(i), Chr$(34))) > 4
lPos = InStr(sArr(i), ":")
lPos = InStr(lPos + 2, sArr(i), Chr$(34))
sArr(i) = Left$(sArr(i), lPos - 1) & Mid$(sArr(i), lPos + 1)
Loop
Next
FixJSON = Join(sArr, ",")
End Function
saludos.