Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 948 fois - Téléchargée 41 fois
Module Files Dim stStorChaine(1000) As String Dim Principal, Secondaire As Long Dim Counter, Counter2 As Long Public Function FindTitle(ByRef strFileName) For Principal = 1 To Len(strFileName) stStorChaine(Principal) = Mid(strFileName, Principal, 1) If stStorChaine(Principal) = "\" Then Counter += 1 End If Next For Secondaire = 1 To Len(strFileName) If stStorChaine(Secondaire) = "\" Then Counter2 += 1 If Not stStorChaine(Secondaire + 1) = "\" And Counter2 = Counter Then Return Mid(strFileName, Secondaire + 1, Len(strFileName) - Secondaire) Exit For End If Next End Function Public Function FindExtension(ByVal strFileName) For Principal = 1 To Len(strFileName) stStorChaine(Principal) = Mid(strFileName, Principal, 1) If stStorChaine(Principal) = "." Then Counter += 1 End If Next For Secondaire = 1 To Len(strFileName) If stStorChaine(Secondaire) = "." Then Counter2 += 1 If Not stStorChaine(Secondaire + 1) = "." And Counter2 = Counter Then Return Mid(strFileName, Secondaire, (Len(strFileName) - Secondaire) + 1) Exit For End If Next End Function End Module
A quand le prochain....
Je suppose que le code est bon.
Au passage J'ai un livre Visual Basic .NET , si quelqu'un le veux...
Me contacter dans la rubrique QUI EST PASSE AUJOURD'HUI dans la rubrique qui est connecté...
Vous pouvez laissez un message...
javais pas vu le .NET :p
dans ce cas je suppose que c bien comme code ;)
et c moins long écrire "app.title"
Les bugs:
"Return Mid (...)"
"Counter2 +=1"
...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.