Como extraer una palabra del texto de un texbox VB2010

[NetFcruz]

Hola amigos tengo un programa que me arroja un log de unas 5 lineas en la cual me arroja una palabra ACCEPTED o REJECT, y quiero extraer esa palabra y utilizarla, solo quiero saber como la obtengo una vez que se encuantra entre en texto de un RichTexbox.

Espero haberme explicado.
Saludos...

[Aquaventus]

Hola NetFcruz, como está estructurado tu archivo de texto?

[NetFcruz]

Iniciado por Aquaventus

Hola NetFcruz, como está estructurado tu archivo de texto?

Ok, gracias por contestar amigo.
Un cordial saludo.
Tengo en mi Richtexbox esto ACCEPTED:

Código:

-
-
-
<?xml version="1.0" encoding="utf-8"?><AckErrorApplication xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" contentVersion="2.0" documentStructureVersion="AMC7.1" creationDate="20121105" documentStatus="ACCEPTED"><ackErrorApplicationIdentification><entityType>305</entityType><uniqueCreatorIdentification>31669759</uniqueCreatorIdentification></ackErrorApplicationIdentification><ApplicationInformation><deliveryDatePresent>2012-11-05</deliveryDatePresent></ApplicationInformation><ReferenceNumber><referenceIdentification>CTT</referenceIdentification><type>SE</type></ReferenceNumber><ReferenceNumber><referenceIdentification>5700</referenceIdentification><type>IV</type></ReferenceNumber><ReferenceNumber><referenceIdentification>1458649</referenceIdentification><type>ACE</type></ReferenceNumber><Buyer><nameAndAddress><name>TIENDAS SORIANA, S.A. DE C.V.</name></nameAndAddress></Buyer><Seller><nameAndAddress><name>EDITORA DEMAR, S.A. DE C.V.</name></nameAndAddress></Seller></AckErrorApplication>
-
-
-
-

Y otro con esta REJECT

Código:

-
-
-
<?xml version="1.0" encoding="utf-8"?><AckErrorApplication xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" contentVersion="2.0" documentStructureVersion="AMC7.1" creationDate="20121105" documentStatus="REJECT"><ackErrorApplicationIdentification><entityType>305</entityType><uniqueCreatorIdentification>31669795</uniqueCreatorIdentification></ackErrorApplicationIdentification><ApplicationInformation><deliveryDatePresent>2012-11-05</deliveryDatePresent></ApplicationInformation><ReferenceNumber><referenceIdentification>CRT</referenceIdentification><type>SE</type></ReferenceNumber><ReferenceNumber><referenceIdentification>7652</referenceIdentification><type>IV</type></ReferenceNumber><Buyer><nameAndAddress><name>TIENDAS SORIANA, S.A. DE C.V.</name></nameAndAddress></Buyer><Seller><nameAndAddress><name>EDITORA DEMAR, S.A. DE C.V.</name></nameAndAddress></Seller><messageError sequence="1"><errorCode>APLICATION ERROR CODE</errorCode><errorDescription><text>Error al Notificar a SuperCity. Server was unable to process request. ---&gt; La orden ya ha sido documentada en otra factura.</text></errorDescription></messageError></AckErrorApplication>
-
-
-

Quiero extraer la palabra Acepted o Reject de ese texto contenido en el RTexbox y una vez obtenida depositarla a una variable que tenga definida string.

[Aquaventus]

Eso es formato xml... tienes 2 opciones : que lo trates tal y como es(XML) y recorras sus nodos ó simplemente hacer una búsqueda de si existe la palabra "ACCEPTED" o "REJECT", obviamente ésta última es la mas fácil puesto que solo puedes usar la sentencia Contains para ver si existe la palabra que buscas...
Ejemplo :

Código vb:

Dim texto As String = "ESTO ES MI TEXTO XML REJECTED"
If texto.Contains("REJECTED") = True Then
'....
ElseIf texto.Contains("ACCEPTED") = True Then
'...
Else
'NO SE ENCONTRO NINGUNA DE LAS 2 PALABRAS
End If
 

Ahora por XML es alguito complejo. No te puedo dar todo tampoco averiguate sobre XML sino quieres usar el ejemplo que te pasé. Saludos!.

[NetFcruz]

Iniciado por Aquaventus

Eso es formato xml... tienes 2 opciones : que lo trates tal y como es(XML) y recorras sus nodos ó simplemente hacer una búsqueda de si existe la palabra "ACCEPTED" o "REJECT", obviamente ésta última es la mas fácil puesto que solo puedes usar la sentencia Contains para ver si existe la palabra que buscas...
Ejemplo :

Código vb:

Dim texto As String = "ESTO ES MI TEXTO XML REJECTED"
If texto.Contains("REJECTED") = True Then
'....
ElseIf texto.Contains("ACCEPTED") = True Then
'...
Else
'NO SE ENCONTRO NINGUNA DE LAS 2 PALABRAS
End If
 

Ahora por XML es alguito complejo. No te puedo dar todo tampoco averiguate sobre XML sino quieres usar el ejemplo que te pasé. Saludos!.

Mil gracias algo encontre parecido, en xml lo tengo, solo queria hacer una extracion asi como lo que comentas brother, si existe tal "PALABRA" hace algo si no Otra cosa.
Mil gracias amigo, vere si funciona.
Gente como tu siemrpe persevera y se le admira.

[Aquaventus]

De nada estimado! Nos cuentas!. Saludos!.