Hola chicos les traigo un simple split en vb6, nunca antes habia trabajado en este lenguaje me decidi probarlo
Private Function Split(cadena, delm1, delm2 As String) As String
  Dim pos1, pos2 As Integer
  Dim ext, sfinal As String
  
  sfinal = ""
  pos1 = InStr(cadena, delm1)

     
  If pos1 <> 0 Then
    ext = Mid(cadena, pos1 + Len(delm1), Len(cadena) - Len(delm1))
    pos2 = InStr(ext, delm2)
    If pos2 <> 0 Then
      sfinal = Mid(ext, 1, pos2 - 1)
    End If
  End If
  Delimitador = sfinal
  
End Function
Skype:crack8111
@crack81 retorna la cadena resultante Split = sfinal.

en esta caso Dim pos1, pos2 As Integer solo pos2 es de tipo integer pos1(vacía. no inicializada). Igual para ext(vacia), sfinal(cadena) .

Ya déjalo. quédate con delphi. jajaja

Saludos bro
Imagen
Hola gracias por corregirme Pink, la verdad parece que me apresure al intentar aportar codigo en vb6
lo de retornar la cadena originalmente se llamaba delimitador despues al momento de publicar el codigo hice la burrada de cambiar el nombre a la funcion pero se me olvido tambien hacerlo al retornalo

lo que hablas de la multideclaracion es verdad voy a poner mas atencion en eso detalles, dejo una version pulida del codigo, eso si no voy a dejar vb6 hasta que mas o menos entienda como funciona jajaja
Private Function Split(cadena As String, delm1 As String, delm2 As String) As String
  Dim pos1 As Integer, pos2 As Integer
  Dim ext As String, sfinal As String
  sfinal = ""
  ext = ""

  pos1 = InStr(cadena, delm1)
  If pos1 <> 0 Then
    ext = Mid(cadena, pos1 + Len(delm1), Len(cadena) - Len(delm1))
    pos2 = InStr(ext, delm2)
    If pos2 <> 0 Then
      sfinal = Mid(ext, 1, pos2 - 1)
    End If
  End If
  Split = sfinal
  
End Function
Saludos...
Skype:crack8111
De nada bro. otra cosita esta parte Private Function Split(cadena, delm1, delm2 As String) As String si es valida. todos son string. (vb6 wtf lol)
Para probar cosas es interesante.
a ver cuando hacemos algo como retos para matar el tiempo.
Saludos
Imagen
[Enlace externo eliminado para invitados]

jaja me estoy volviendo troll
soy el unico tipo fiel a un lenguaje solo?
es igual que en mi vida real , me da pena por mi:(
buen codigo ,saludos y buenos dias
paresco malo ,pero soy bueno
Responder

Volver a “Fuentes”