none
Como cortar cantidad de caracteres extraídos de una web?

    Pregunta

  • Hola amigos, les cuento que tengo el siguiente dilema, extraigo de una web el nombre de un producto y lo traspaso a un textbox, pero resulta que algunas veces el nombre que extraigo viene demasiado largo, por ejemplo 200 caracteres y solo necesito que sea de 50 o 60 caracteres no mas, de que manera puedo cortar o extraer hasta una cierta cantidad de caracteres? este es el código que utilizo para extraer.

    'Obtengo el Nombre del Producto
                            Try
                                Dim Nombre As String = ""
                                Nombre = WebBrowser1.DocumentText.ToString
                                TxtNombre.Text = ""
                                Dim pi, pf As Integer
                                pi = InStr(Nombre, "productArea productAreaDetail js-productAreaDetail col-xs-12 col-sm-5 col-md-6 col-lg-7") + 242
                                pf = InStr(Nombre, "font-compact-12 font-bold brand")
                                pf = pf + 1
                                Nombre = Mid(Nombre, pi, pf)
                                pf = InStr(Nombre, ">")
                                Nombre = Mid(Nombre, 1, pf)
                                Nombre = Replace(Nombre, Chr(34), "")
                                Nombre = Replace(Nombre, "ata-productname=", "")
                                'pi = pi + 70
                                'Nombre = Mid(Nombre, 70, pf)
                                Nombre = Replace(Nombre, ">", "")
                                Nombre = Replace(Nombre, "<", "").Trim
                                Nombre = Replace(Nombre, "ta-productname=", "").Trim
                              
                                ''este codigo de abajo permite dejar la primera letra en mayuscula de las frases que vaya extrayendo.''
                                Nombre = UCase(Mid(Nombre, 1, 1)) & LCase(Mid(Nombre, 2))
                                Nombre = CStr(Nombre)
                                TxtNombre.Text = Nombre
                                If TxtNombre.Text.Contains("&QUOT;") Then
                                    Nombre = Replace(Nombre, "&quot;", " Pulgadas ")
                                    TxtNombre.Text = Nombre
                                End If
                                If TxtNombre.Text.Contains("QUOT") Then
                                    Nombre = Replace(Nombre, "quot", " Pulgadas ")
                                    TxtNombre.Text = Nombre
                                End If
                            Catch ex As Exception
    
                            End Try

    muchas gracias.

    martes, 2 de mayo de 2017 14:44

Respuestas

  • Presumo que es la variable Nombre la que tiene el texto extraído y quieres limitar a 50 caracteres. Puedes conseguirlo con un simple Substring:

    If Nombre.Length > 50 Then
        Nombre = Nombre.SubString(0, 50)
    End If

    • Marcado como respuesta Miguel Oyarzo martes, 2 de mayo de 2017 17:23
    martes, 2 de mayo de 2017 15:58

Todas las respuestas

  • Presumo que es la variable Nombre la que tiene el texto extraído y quieres limitar a 50 caracteres. Puedes conseguirlo con un simple Substring:

    If Nombre.Length > 50 Then
        Nombre = Nombre.SubString(0, 50)
    End If

    martes, 2 de mayo de 2017 15:57
  • Presumo que es la variable Nombre la que tiene el texto extraído y quieres limitar a 50 caracteres. Puedes conseguirlo con un simple Substring:

    If Nombre.Length > 50 Then
        Nombre = Nombre.SubString(0, 50)
    End If

    • Marcado como respuesta Miguel Oyarzo martes, 2 de mayo de 2017 17:23
    martes, 2 de mayo de 2017 15:58