[RETO] Obtener nombre de archivo

Iniciado por Psyke1, 13 Febrero 2011, 19:54 PM

0 Miembros y 1 Visitante están viendo este tema.

seba123neo

#10
con razon la de 79137913 a veces decia mas y otras menos, en realidad no la estaba usando, usaba 2 veces la funcion mia  :xD, ahi corregi el codigo de las funciones, en mi post, aparte fijate 79137913 que esta mal porque no estas eliminando los espacios del buffer que creas y eso la hace lentisima, la funcion bien esta aca:

GetFileTitle - Obtener nombre de archivo de un path

o sea seria:

Código (vb) [Seleccionar]
Private Function Fn7913(ByVal sPath As String) As String
   Dim Buffer As String
   Buffer = String(255, 0)
   GetFileTitle sPath, Buffer, Len(Buffer)
   Fn7913 = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Function


igual sigue un poco mas lenta que las demas.

@ Mr. Frog ©

la funcion que posteaste no funciona, solo le quita el directorio principal.

aca va otra, esta tarda la mitad de la ultima que habia posteado.

Código (vb) [Seleccionar]
Public Function GetFileName123(ByRef vPath As String) As String
    GetFileName123 = Right$(vPath, Len(vPath) - InStrRev(vPath, "\"))
End Function


saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Elemental Code

#11
No creo que sea la mas rapida
pero tampoco creo que sea la mas lenta :P

Código (vb) [Seleccionar]
Public Function SacarFilenameE_C(ByRef sPath As String) As String
SacarFilenameE_C = StrReverse$(Left$(StrReverse$(sPath), InStr(1, StrReverse$(sPath), "\", vbBinaryCompare) - 1))
End Function


EDITO:
Medio segundo despues de que puse el tema encontre la funcion InStrRev :P

aca una segunda funcion

Código (vb) [Seleccionar]
Public Function SacarFilenameE_Cv2(ByRef sPath As String) As String
   SacarFilenameE_Cv2 = Right$(sPath, Len(sPath) - InStrRev(sPath, "\", Len(sPath), vbBinaryCompare))
End Function

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

Psyke1

#12
Código (vb) [Seleccionar]
Public Static Function GetFileMrFrog(ByRef sFile As String) As String
   GetFileMrFrog = RightB$(sFile, InStrRev(sFile, "\") * 2 - 2)
End Function


Esta si! :P
Despues testeo ahora no tengo tiempo.
@Seba123neo
Jajajaj hice la clase precisamente para ahorrarte el trabajo! :xD

DoEvents! :P

Elemental Code

#13
Van a pensar que salio asi porque lo hice yo  :-[ :-[
================================================================================
º Contest Name : ObtenerNombreArchivo
º Explanation  : Mas claro, hechale agua
º Arguments    : C:\Documents and Settings\Llamazares\Mis documentos\Downloads\SexoDeRanas.avi
º Loops        : 1000
º Date & Hour  : 02-13-2011 <-> 18:48:31
================================================================================
Results [compiled] :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.- SacarFilenameE_C                                    -> 24,129044 msec
2.- SacarFilenameE_Cv2                                  -> 27,445965 msec
3.- getFileNameIgnorante                                -> 30,370386 msec
4.- getFileNameIgnoranteMODSeba                         -> 36,459560 msec
5.- GetFilename123                                      -> 38,079072 msec
6.- nombre_archivoGrester                               -> 46,986994 msec
7.- Fn7913                                              -> 256,390794 msec
================================================================================
º The following functions returns incorrect results :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.- GetFileMrFrog
2.- StripPathSeba
================================================================================
>>> Test made by cFrogContest.cls <-> Visit foro.elhacker.net <<<
================================================================================





capas que le erre en algo  :-[

Asi esta codeado:

Private cFC                     As New cFrogContest '// Class declaration.

Private Declare Sub PathStripPath Lib "shlwapi.dll" Alias "PathStripPathA" (ByVal pszPath As String)
Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
Public Function SacarFilenameE_C(ByRef sPath As String) As String
SacarFilenameE_C = StrReverse$(Left$(StrReverse$(sPath), InStr(1, StrReverse(sPath), "\", vbBinaryCompare) - 1))
End Function
Public Function SacarFilenameE_Cv2(ByRef sPath As String) As String
   SacarFilenameE_Cv2 = Right$(sPath, Len(sPath) - InStrRev(sPath, "\", Len(sPath), vbBinaryCompare))
End Function
Public Static Function GetFileMrFrog(ByRef sFile As String) As String
   GetFileMrFrog = RightB$(sFile, InStrRev(sFile, "\") * 2 - 2)
End Function
Public Function getFileNameIgnorante(ByVal path As String) As String
   Dim cM As Integer
   cM = InStrRev(path, "\") + 1
   If cM = 0 Then Exit Function
   getFileNameIgnorante = Mid(path, cM)
End Function
Public Function StripPathSeba(ByVal sPath As String) As String
  Call PathStripPath(sPath)
  StripPathSeba = sPath
End Function
Public Function getFileNameIgnoranteMODSeba(ByVal path As String) As String
   getFileNameIgnoranteMODSeba = Mid$(path, InStrRev(path, "\") + 1)
End Function
Public Function nombre_archivoGrester(ByVal Ruta As String) As String
Dim partes() As String
partes = Split(Ruta, "\")
nombre_archivoGrester = partes(UBound(partes))
End Function
Public Function Fn7913(ByVal sPath As String) As String
   Dim Buffer As String
   Buffer = String(255, 0)
   GetFileTitle sPath, Buffer, Len(Buffer)
   Fn7913 = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Function
Public Function GetFileName123(ByRef vPath As String) As String
   GetFileName123 = Right$(vPath, Len(vPath) - InStrRev(vPath, "\"))
End Function

Private Sub Form_Load()
   With cFC
       .ContestName = "ObtenerNombreArchivo"                      '// The constest name.
       .Explanation = "Mas claro, hechale agua" '// Little explanation.
       .SaveDirectory = App.path                       '// Directory where you saved the test.
       .ReplaceFile = True                        '// To overwrite the file.
       .Functions "Fn7913,GetFileMrFrog,GetFilename123,getFileNameIgnorante,getFileNameIgnoranteMODSeba,nombre_archivoGrester,SacarFilenameE_C,SacarFilenameE_Cv2,StripPathSeba"  '// Name of the functions.
       .Arguments "C:\Documents and Settings\Llamazares\Mis documentos\Downloads\SexoDeRanas.avi"        '// Arguments of functions (must be the same in all functions).
       .NumberOfLoops = 1000                        '// Number of Loop to call them.
       .Result = "SexoDeRanas.avi"                           '// This result should give functions.
       .SetObject Me                               '// Object (needed to make the calls).
       .TestIt                                     '// Execute the test and save it.
       .ShowTest                                   '// Shows the txt file.
   End With
   
End


End Sub


y necesita la clase que codeo mi amigo ranafonico.

http://foro.elhacker.net/programacion_visual_basic/src_cfrogcontestcls_by_mr_frog_copy-t318871.0.html

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

BlackZeroX

#14
.
tal vez no sea la mas rapida pero si la que no te va a devolver cosas raras.

Ej (Agregar estas cadena al Test):



C:\carpetas con varios puntos ... segun los parametros\ARCHIVO
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO.EXE
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO.EXE
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO.EXE
C:ARCHIVO.exe
C:ARCHIVO.exe
C:ARCHIVO.exe
C:...ARCHIVO.exe
C:...ARCHIVO.exe
C:...ARCHIVO.exe



GetPatchInfo

Dulces Lunas!¡.
The Dark Shadow is my passion.

Elemental Code

@BlackZeroX

La funcion del hombre rana me fuerza a usar los mismos argumentos para todas las funciones.
Tu funcion tiene mas vueltas que una calecita  :huh: :-\

PD: Aguante el topo yiyo  ;D

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

seba123neo

te falta postear la ultima que puse, fijate que editamos el post casi al mismo tiempo  :xD y pusimos la misma funcion con una diferencia, solo que la tuya hace el vbBinaryCompare.

la de la api que yo posteo creo que no anda con la clase de Mr. Frog ©  porque en la documentacion de la api dice que esta api no devuelve ningun valor, el valor que devuelve lo hace sobre la misma variable que le pasas y por eso creo que la clase que llama a la api espera un resultado que nunca llega y termina en error.

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

BlackZeroX

#17
Cita de: Elemental Code en 13 Febrero 2011, 23:19 PM
@BlackZeroX

Tu funcion tiene mas vueltas que una calecita  :huh: :-\

PD: Aguante el topo yiyo  ;D

1) No tiene tantas vueltas. aun que el resultado es seguro xP ( Puse algunas cadenas Extras y muchas de ellas si las pruebo con las funciones que se publicaron aquí crashean a excepción de las API que en mi forma de ver deberian excluirse del reto pero bueno ).
2) Yeah.

Dulces Lunas!¡.
The Dark Shadow is my passion.

79137913

HOLA!!!

Pff que bajon era re lenta, aho ra mo pongo a hacer otra funcion, daba asco la primera, pero testeenla por que no tengo vb aca

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

79137913

HOLA!!!

Estuve buscando otras maneras de hacerlo, pero cuanto mas ganaba velocidad la funcion mas se asemejaba a las que habian posteado, asi que no vale :P.

En fin quiten la mia del test que solo realentiza...

Ahh, aca les dejo la version mas lenta que puede haber :P

Agreguen en referencias Microsoft Scripting Runtime

Código (vb) [Seleccionar]

Private Function VeryVerySlow7193(sPath as string) as string
Dim fso As New FileSystemObject
Dim Archivo as File
Set Archivo = fso.GetFile(sPath)
If Not (Fi  Is Nothing) Then VeryVerySlow7913 = Fi.Name : Exit Function
VeryVerySlow7913 = "Error, asegurese que el archivo existe (This Function Sucks)"
End Function


GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*