Chaine de caractére en VB6Résolu

Question

Bonjour tout le monde je travaille en VB6 mon pb est le suivant :
j'ai une chaine Chaine string qui contient un nom d'un fichier exemple: MonFichier.fg je veux extraire le nom de fichier sans l'extension je suis familier avec le C# donc je pourais utiliser la fonction IndexOf (".") et apr&#233;s faire un substring mais en VB6 je n'en ai aucune id&#233;e est ce que qcq pourrait m'aider avec un exemple qui tourne sur VB6 et fait la m&#234;me Chose.

Merci d'avance!!!

blueangel13

Gobillot · Accepted Answer

chaine = "MonFichier.fg"

    

NomFichier = Left$(chaine, InStrRev(chaine, ".") - 1) 

Daniel

animusaquila · Answer

moi je travail en VBS et dans se language il y a plusieur solution. soit tu fait apel au objet et tu te sert de cette ligne: objet.name
deuxieme solution, tu fait apel a la fonction left(path du fichier, nombre de caractère) ou righ(path du fichier, nombre de caractère). enfin g pa le temps de tout expliquer fait des recherche sur internet c simple..

Zlub · Answer

Salut blueangel,



Dim chaine As String

  

  chaine = "fichier.cfg" ' App.Path & "\TonFichier.cfg"

  Debug.Print chaine

  

  

  Dim posDebFileName As Integer

  posDebFileName = InStrRev(chaine, "")

  If posDebFileName < 1 Then posDebFileName = 0

  

  Dim fichier() As String

  

  fichier = Split(Mid(chaine, posDebFileName + 1), ".")

  

  Debug.Print "nom fichier : " & fichier(0)

  Debug.Print "extension : " & fichier(1)

  

  ' mais vu que les extensions + . = 4 char tu peux ausssi faire

  Debug.Print Mid(chaine, posDebFileName + 1, Len(chaine) - posDebFileName - 4)



++

Zlub

<hr size="2" width="100%">

cs_blueangel · Answer

Merci Zlub pour ce coup de main!!!
entre nous entre C# et VB.NET
 et 
VB6 est nettement meilleurs !!! surtout dans la manipulation des string!!!!

blueangel13