Hola amigos, he estado un buen rato buscando con mi amigo Google y no he encontrado la respuesta a mi problema, os explico. Tengo el siguiente texto en un textbox:


Y esto es lo que quiero conseguir añadiendo un texto en una posición especifica(me vale con insertarlo despues de "RAIZ": {)


Parece algo sencillo pero no lo consigo  

Saludos y gracias.

Hola EleKtro H@cker,
No me sirve por varios motivos, el primero es que no puedo usar <a><![CDATA[ debido a que trabajo con .net 2.0 y no contiene linq (pero bueno se inserta el texto en una variable y problema resuelto), y la otra cuestión es que si existe mas texto debajo desaparece.

Perdona por no ser mas claro, lo que estoy haciendo exactamente es editar el archivo preferences de google chrome, para que mi extensión se añada a este. Debo de modificar esta parte:


La parte de texto que quiero añadir por ejemplo es esta:


Esta debe añadirse despues de "settings": { y deberia de hacerse en orden alfabético aun que eso da igual ya que me he dado cuenta de que Google Chrome los ordena solo. He pensado en mirar las lineas 1 por 1 y cuando encuentre "settings": { que se añada 1 linea debajo pero tampoco se como.

Saludos y gracias de nuevo.

Ahora está todo mucho más claro, podrías haber comentado lo de Google desde el principio xD.

Puedes hacerlo a lo experto como lo haría Novlucker usando alguna librería para manejar JSON, o también puedes usar esta alternativa que hice:

        Dim MyExtension As String, GoogleFile As String, Preferences() As String
 
        MyExtension = """aakhlmakppmkkmfkoibponkmmpgpmjgl"": {""blacklist"": true},"
        GoogleFile = "C:\Program Files\Google Chrome\Data\profile\Default\Preferences"
        Preferences = IO.File.ReadAllLines(GoogleFile)
 
        For X As Int32 = 0 To Preferences.Length - 1
            If Preferences(X).Trim = """settings"": {" Then
                Preferences(X) &= MyExtension
                IO.File.WriteAllText(String.Join(Environment.NewLine, Preferences), GoogleFile)
                Exit For
            End If
        Next

Saludos

muy bueno el code, MUCHAS GRACIAS!! le he añadido bien la ruta pero me da el siguiente error
"Caracteres no validos en la ruta de acceso" en la linea:
IO.File.WriteAllText(String.Join(Environment.NewLine, Preferences), GoogleFile)

        Dim MyExtension As String, GoogleFile As String, Preferences() As String
 
        MyExtension = """aakhlmakppmkkmfkoibponkmmpgpmjgl"": {""blacklist"": true},"
        GoogleFile = Environment.GetFolderPath(SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Preferences"
        Preferences = IO.File.ReadAllLines(GoogleFile)
 
        For X As Int32 = 0 To Preferences.Length - 1
            If Preferences(X).Trim = """settings"": {" Then
                Preferences(X) &= MyExtension
                IO.File.WriteAllText(String.Join(Environment.NewLine, Preferences), GoogleFile)
                Exit For
            End If
        Next
 

Era demasiado bonito para ser verdad xD

Saludos.

Lo escribí al vuelo sin testearlo, lo que ocurre es que por confusión intercambié la posición los parámetros aquí:

IO.File.WriteAllText(String.Join(Environment.NewLine, Preferences), GoogleFile)

Así si:

IO.File.WriteAllText(GoogleFile, String.Join(Environment.NewLine, Preferences))

Este ya funciona (con la ruta correcta para tu PC):

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim MyExtension As String, GoogleFile As String, Preferences() As String
 
        MyExtension = """aakhlmakppmkkmfkoibponkmmpgpmjgl"": {""blacklist"": true},"
        GoogleFile = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Google\Chrome\User Data\Default\Preferences")
        Preferences = IO.File.ReadAllLines(GoogleFile)
 
        For X As Int32 = 0 To Preferences.Length - 1
            If Preferences(X).Trim = """settings"": {" Then
                Preferences(X) &= MyExtension
                IO.File.WriteAllText(GoogleFile, String.Join(Environment.NewLine, Preferences))
                Exit For
            End If
        Next
    End Sub

PD: No es necesario identar las lineas del JSON (Google chrome lo ordena por si mismo), pero bueno, si prefieres hacer un string multilinea como en tu ultimo code es tu decisión.

Saludos.