funcion Instr

[nauzetaleman]

Buenos dias, a ver si alguien me puede ayudar, necesito que la variable lotenew obtenga de el siguiente fichero el ultimo numero, en este caso el 928.

!WV63|WW60|WW61|WW68|GT00|LX02
1|3|0|928

Sería un fichero de texto con estas 2 lineas, y yo necesitaria coger el 928 e igualarlo a la variable lotenew, creo que se hace con la funcion Instr, pero no estoy seguro de como se hace ya que nunca la habia usado hasta ahora. Gracias.

[pana99]

Hola. Mira lo que se me ocurre es hacerlo en dos partes. Una que te busca el ultimo separador y la otra que asigna.
espero te sirva

Código:

Private Sub Command1_Click()
   Dim LoteNew As String, Aux As Integer
   'leo el dato (en este caso lo asigne, pero se supone lo debes leer del fichero)
   LoteNew = "!WV63|WW60|WW61|WW68|GT00|LX021|3|0|928"
   
   'Busco la posicion donde esta el ultimo separador |
   Aux = MyInstrLast(LoteNew, "|")
   'recorto
   LoteNew = Mid(LoteNew, Aux + 1, Len(LoteNew) - Aux)
End Sub
Private Function MyInstrLast(ByVal pstrText As String, ByVal pstrSearch As String) As Integer
    Dim pos As Integer, Aux As Integer, ctrl1 As Integer
    pos = 0
    Do
        Aux = InStr(pos + 1, UCase(pstrText), UCase(pstrSearch))
        If Aux <> 0 Then pos = Aux
    Loop Until Aux = 0
    MyInstrLast = pos
End Function

[David]

Podría ser:

Código vb:

Dim Texto As String
 
Texto = "!WV63|WW60|WW61|WW68|GT00|LX02 1|3|0|928"
MsgBox Right(Texto, Len(Texto) - InstrRev(Texto, "|"))
 

[nauzetaleman]

Hola, como puedo cargar un fichero de ruta, seria un fichero txt, y despues necesitaria coger un dato de la segunda fila, el fichero tiene 2 filas, seria algo asi y necesitaria coger el ultimo numero (928).

!WV63|WW60|WW61|WW68|GT00|LX02
1|3|0|928

gracias

[pkj]

Código vb:

Function NumeroFinal(Fichero As String) As Integer
  Dim NumFichero As Integer
  Dim Linea As String
  NumFichero = FreeFile
  Open Fichero For Binary As NumFichero
    Linea = Input(LOF(NumFichero), #NumFichero)
  Close NumFichero
  NumeroFinal = Right$(Linea, Len(Linea) - InStrRev(Linea, "|"))
End Function
 

Fichero="c:\valores.txt"

ValorBuscado = NumeroFinal(Fichero)