Discussion :

[bailamos]

salut,
dans un dossier c:\a j'ai des fichier htm que je veux renomer avec le titre entre <title et </title> voici un debut mais je ne sais pas comment contunuer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
lRet = GetFilesPathFromDirectory("c:\a", aResultat())
If lRet <> -1 Then
For i = 0 To lRet
Open aResultat(i) For Input As #ff
MyText = MyText & Input(LOF(ff), #ff)
nStart = InStr(1, sBuffer, "<title>", vbBinaryCompare)
nEnd = InStr(1, sBuffer, "</title>", vbBinaryCompare)
If nStart > 0 And nEnd > 0 Then
title= Mid$(sBuffer, nStart + 7, nEnd - nStart - 8)
Close #ff
Next i
End If

[Vld44]

une fois que tu as le titre et sa position utilise strReplace

Edit: autant pour moi il faut trouver un truc qui modifie le contenu d'un fichier pas une chaîne en mémoire.

[sovo]

Bon d'apres ce que je vois

title= Mid$(sBuffer, nStart + 7, nEnd - nStart - 8)

tu parviens a recupere le sontenu du titre. Donc maintenant ce qu'il te reste a faire ce n'ai que de renome. Pour cela sert toi de la fonction Rename

Elle s'ueilise comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rename(Ancien_Nom, Nouveau_Nom)    'Tenir compte aussi du chemin des fichiers