Extraer Desde Hasta Estimated reading: 1 minute 610 views DESCRIPCION: Extrae el texto de ValorOrigen desde el caracter de Condicion1Valor hasta el caracter de Condicion2Valor EJEMPLO: Extraer de este código genérico (88-1234Z) desde el caracter “-” hasta “4” ValorOrigen: “88-1234Z” Condicion1Valor: “-” Condicion2Valor: “4” ValorProcesado: “1234” Tipo Valor Valor Valor2 Relacion Relacion2 Operacion Extraer desde hasta Factor If ValorOrigen <> “” Then If Condicion1Valor <> “” Then If Condicion2Valor <> “” Then If IsNumeric(Condicion1Relacion) Then Else Condicion1Relacion = 0 End If If IsNumeric(Condicion2Relacion) Then Else Condicion2Relacion = 0 End If Dim Posicion1 As Integer = 0 Dim Posicion2 As Integer = 0 If Condicion1Valor = “Inicio” Then Posicion1 = 0 Else Posicion1 = ValorOrigen.IndexOf(Condicion1Valor) End If If Condicion2Valor = “Fin” Then Posicion2 = ValorOrigen.Length Else Posicion2 = ValorOrigen.IndexOf(Condicion2Valor) End If Dim Total As Integer = ValorOrigen.Length ValorProcesado = ValorOrigen.Substring(Posicion1 + Condicion1Relacion, Posicion2 – Posicion1 + Condicion2Relacion) End If End If
