manip fichier texte

Question

Bonjour a tous



Dans un fichier texte J’ai des milliers de lignes avec le format suivant



43.36946, -1.77173, "du texte"



Et je ne voudrais pas les modifier a la mimine (+ de 6000 lignes)



Je voulais savoir si il y avait moyen en VB de créer une chtite appli



Qui une fois lancer 



Edite le fichier et inverse la première série de chiffre avec la 2iem (toutes les lignes)



Exe :  av :  43.36946, -1.77173, "du texte" 





       
 après : -1.77173, 43.36946, " du texte "




<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

 


et le sauvegarde de nouveau dans un texte
merci assel





ps: si il y a une possibilité de prendre le contenu de chaque ligne et de le balancer dans un fichier Excel 
sous 3 cellules  différente        serait le mieux

violent_ken · Answer

Violent Ken

Salut, alors je vais te dire comment copier tout çà sous Excel en trois colonnes :
1) tu remplaces toutes les ',' par des tabulations (d'abord faire une tabulation sous bloc notes et ensuite faire copier coller de la tabulation vers la textbox de la boite de dialogue 'Remplacer')
2) tout sélectionner
3) coller dans une cellule de Excel ==> normalement c'est bon (séparation en 3 colonnes)

@+

cs_casy · Answer

Ou plus simple, tu ouvre directement le fichier avec Excel, il va lancer l'assistant d'importation.
- Etape 1 : tu choisi délimité
- Etape 2 : tu décoche tout puis tu coche virgule
- Etape 3 : tu sélectionne les 3 colonnes et tu choisi format texte, tu valide

Ton fichier est ouvert sous 3 colones
Tu sélectionne la colonne A, tu fait "couper"
Tu sélectionne la colonne C, click droit, tu choisit "inserer les cellules coupées"
Voila tes 2 colonnes sont inversées

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

AsselusBorealiss · Answer

Salut Casi ,  Violent Ken 
Casi alors la Chapeau je me suis dis si je commence a la mimine fin 2007 j'aurais jamais fini
et la en 3 clicks Bingo
Nickels 
mille merci 
et bonne annee 2007 qui commence tres bien
a+
Assel

AsselusBorealiss · Answer

salut Casi
 je cherche un moyen pour numerote le contenu de mon fichier
pour reprendre l'exemple



-1.77173, 43.36946, " du texte " 
je voudrais comme cela
du blable 1 dublabla(-1.77173, 43.36946, " du texte "
du blable 2 dublabla(-1.77173, 43.36946, " du texte " 
du blable 3 dublabla(-1.77173, 43.36946, " du texte " 
du blable 4 dublabla(-1.77173, 43.36946, " du texte " 
du blable 5 dublabla(-1.77173, 43.36946, " du texte "

un idee (une boucle en visual basic  dans un fichier texte ou numerotation des lignes  personalisable dans Word (office2007)
merci
a+
assel

ps : mon fichier fait pas +6000 ligne...non il en fait +12000 :(

violent_ken · Answer

Violent Ken

Salut, dans Excel, dans une nouvelle colonne, tappes "blabla 1" en face de la première ligne et "blabla 2" en face de la deuxième.
Ensuite, sélectionne les 2 lignes, puis pose le curseur de la souris dans le coin bas-droite du rectangle de la sélection (le curseur se transforme en croix), et "tire" la sélection vers le bas sans relacher le bouton de la souris.

Puis après collage dans un fichier texte de toutes les cellules.
Puis enregistrement en fichier *.csv (avec séparateur ';'), et remplacement sous bloc notes des ';' par des ','.

Ou bien un programme VB6 :




Private Sub Command1_Click()
Dim s As String
Dim lngFile As Long
Dim lngFile2 As Long
Dim x As Long
Dim s2 As String


    lngFile = FreeFile  'obtient un numéro valide
    lngFile2 = FreeFile + 1 'idem
    x = 0
    
    'ouvre en lecture
    Open "c:\documents and settings\admin\bureau	est.txt" For Input As lngFile
    'ouvre en écriture
    Open "c:\documents and settings\admin\bureau	est2.txt" For Append As lngFile2
    
    While Not EOF(lngFile)
    
        x = x + 1
        
        'obtient une ligne de texte
        Line Input #lngFile, s
        
        'écrit la ligne de texte avec le numéro
        s2 = "blabla" & CStr(x) & ", " & s
        Print #lngFile2, s2
        
        If (x Mod 500) = 0 Then DoEvents    'rend la main de temps en temps
    
    Wend
    
    Close lngFile
    Close lngFile2
    
End Sub




@+

AsselusBorealiss · Answer

Salut Violent Ken et merci
et voila comment modifier 12000 lignes en 2 secs

encore merci

ps : tu n'a pas une source sur la manipulation des fichiers sur VBF

Vianneyp · Answer

Bonjour tout le monde,
Je débute avec vb et j'ai un petit probléme...
Je souhaiterai ajouter une ligne a un fichier texte comme suit :

Dim intFNum As Integer
intFNum = FreeFile
Open App.Path + "\Fichier.txt" For Output As #intFNum
Print #intFNum, RichTextBox1.Text + "Linge a ajouter" //RTB1 contenant le fichier texte d'origine
Close intFNum

Ex : dans un fichiere texte il est écrit "Ligne1",je le charge dans la textebox (invisible) et je lui demande de passer une ligne puis d'ajouter ma ligne( RTB1 + vbNewLine + "Ligne a ajouter").
Mais a chaque fois,vb n'ecrit que "Ligne a ajouter".
Ou est le probléme ?
Merci d'avance

mortalino · Answer

Salut,

pose ta question ici : http://www.vbfrance.com/infomsg.aspx?ajout=1
Sinon, personne verra ta demande car c'est un topic d'il y a 5 jours.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Bonjour,

J'espère qu'il est capable de retrouber le sujet qu'il a ouvert...
Il lira alors qu'il est invité à voir ce que fait Open.... For Append

mortalino · Answer

S'il a l'alerte Mail, ça devrait être bon, sinon, il est bon pour se retaper entièrement son message 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

Manip fichier texte

10 réponses

Votre réponse

Discussions similaires