suprimer 10 premier lettreRésolu

Question

salut tous le monde
comment est ce que je peux suprimer les 10 premier lettre d'un fichier txt..

merci d'avance

mortalino · Accepted Answer

Salut, beh voilà, ça m'aura occupé, j'ai mis 2 options dans la fonction ;) Option Explicit Private Function EraseCharTextFile(ByVal sPath As String, NbChar As Long, DeleteLeft As Boolean, AllLine As Boolean) As Boolean Dim FF As Integer, i As Integer Dim sBuffer As String, aLines() As String FF = FreeFile On Error GoTo MyEnd Open sPath For Input As #FF sBuffer = Input(LOF(FF), #FF) Close #FF If Right(sBuffer, 2) = vbCrLf Then sBuffer = Left(sBuffer, Len(sBuffer) - 2) 'on vire le saut de ligne fin, s'il y est If AllLine Then aLines = Split(sBuffer, vbCrLf) Open sPath For Output As #FF If DeleteLeft Then For i = LBound(aLines) To UBound(aLines) Print #FF, Right(aLines(i), Len(aLines(i)) - NbChar) Next i Else For i = LBound(aLines) To UBound(aLines) Print #FF, Left(aLines(i), Len(aLines(i)) - NbChar) Next i End If Close #FF Erase aLines Else If DeleteLeft Then 'donc le début du texte sBuffer = Right(sBuffer, Len(sBuffer) - NbChar) Else sBuffer = Left(sBuffer, Len(sBuffer) - NbChar) End If Open sPath For Output As #FF Print #FF, sBuffer; Close #FF End If EraseCharTextFile = True Exit Function MyEnd: End Function ' exemple d'utilisation Private Sub Form_Load() MsgBox "Réécriture du fichier : " & EraseCharTextFile("C:\Chemin\Test.txt", 10, True, False) End Sub ~ Mortalino ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_lermite222 · Answer

Bonsoir,
tu n'a pas préciser le VB que tu as .
Un exemple en VB6 / VBA
Ouvrir le fichier et le transférer dans une variable 
Exemple dim A as string


tu a ensuite la fonction

A=mid(A,11)
La variable A est ainsi emputée des 10 premier signes

A+
louis

cs_lermite222 · Answer

Salut Mortalino, tu a mis ton poste pendant que j'écrivait
Mais tout ce code pour couper une variable ?
Explique parce que je ne comprend pas.
Cordialement
louis

mortalino · Answer

Salut lermite222, en fait, j'aime bien bosser tout en fonction (code plus clair, et généralement prêt à l'emploi, pas besoin de modifier). Pour ma foncion, il suffit de l'appeler avec divers paramètres : Private Function EraseCharTextFile(ByVal sPath As String, NbChar As Long, DeleteLeft As Boolean, AllLine As Boolean) As Boolean ByVal sPath As String ' chemin du dossier NbChar As Long ' Nb de carac à supprimer DeleteLeft As Boolean ' on supprimer depuis la ' gauche ? (ou la droite ? ) AllLine As Boolean ' Sur toutes les lignes ? ' (ou que le début ' ou la fin du fichier, ' selon param précédant Et pour finir, la fonction retourne un boléen (vrai ou faux) ' ****** Divers Exemples : EraseCharTextFile "C:\Chemin\Test.txt", 10, True, False '>> Supprime les 10 premiers Caractères du fichier EraseCharTextFile "C:\Chemin\Test.txt", 5, False, True '>> Supprime les 5 derniers Caractères de chaque lignes du fichier EraseCharTextFile "C:\Chemin\Test.txt", 2, True, True '>> Supprime les 2 premiers Caractères de chaque lignes du fichier EraseCharTextFile "C:\Chemin\Test.txt", 10, False, False '>> Supprime les 10 derniers Caractères du fichier EraseCharTextFile "C:\Chemin\Test.txt", 1000, True, False '>> Supprime les 1000 premiers Caractères du fichier ~ Mortalino ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

mortalino · Answer

J'ai posté le snippet, ici, il ne sera visible qu'après validation d'un admin 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

kelm_by · Answer

merci les amis 

mais ca ne marche pas encore
je ve tous suprimer jusqua <a href

a="<a href"

NumFich = FreeFile
Open f For Input As #NumFich
Contenu = Input(FileLen(f), NumFich)


b = InStr(1, Contenu, a)


Contenu = Mid(Contenu, b)


Close #NumFich

mortalino · Answer

faut savoir ^^

tu veux supprimer les 10 premières lettres de ton fichier, ou ta balise ?


Elle est située où ? en début, au milieu sans connaitre sa position ?

@++ 





<hr width="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

kelm_by · Answer

a="<a href"

NumFich = FreeFile
Open f For Input As #NumFich
Contenu = Input(FileLen(f), NumFich)


b = InStr(1, Contenu, a) 'calculer nombre de caractere pour ariver a "a"


Contenu = Mid(Contenu, b) suprimer du debut a "a"


Close #NumFich

merci

mortalino · Answer

Bon vu que ça répond pas à ma question, j'emprûnte la boule de crystal de Jack qui est de passage ce soir et te dis : Dim FF As Integer Dim sBuffer As String , a As String FF = FreeFile sPath = "C:\Chemin\Test.txt" a = "Mortalino ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

kelm_by · Answer

merci mortalino

cs_lermite222 · Answer

salut kelm_by
N'en déplaise à mortalino, qui s'est décarcassé pour faire une fonction valable dans beaucoup de conditions,(je ne l'ai pas testée, mais je te fais confiance), il serait sympa d'accepté la réponse que tu à choisi..(je me réfère au dernier poste que tu a mis).
A+
louis
PS. exuse moi mortalino, mais je suis partisant qu'a question courte, réponse courte dans la mesure du possible, et plus précisément axée sur la question posée.

mortalino · Answer

T'en fais pas, ce qui compte, c'est que le membre à sa réponse.

Je fais des fonctions car ça me prend 5 minutes, et je sais que je peux la réutiliser pour mes besoins, pis si quelqu'un redemande ce genre de chose, je sais que je l'ai posté, pouf un copier coller, et voilà

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

Suprimer 10 premier lettre

12 réponses

Votre réponse

Discussions similaires