Discussion :

[godarium]

-Débutant-
Le projet de base, pour fin de test de ce que j'ai besoin de faire, doit faire une liste de code formater une en-desous l'autre
( fichier cfg pour serveur de jeux)

me donne ceci une fois enregistré en text

Code :

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

1
2
3
g_gravity "400"
           g_speed "350"
             g_mapcycle "4"

et je veut cela dans le format text

Code :

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

1
2
3
g_gravity "400"
g_speed "350"
g_mapcycle "4"

Le code de base

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   Private Sub EnregistrerToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripButton.Click
        SaveFileDialog1.Filter = "Fichier Text (*.txt)| *.txt"
        SaveFileDialog1.ShowDialog() ' boite d'enregistrement
 
        Dim NexLig, Sava, Savi, Savr As String ' Déclaration variable
 
        NexLig = Environment.NewLine ' Changement ligne
        Sava = Label1.Text + " " + Chr(34) & NumericUpDown1.Text + Chr(34) + NexLig ' fichier  a enregistrer
        Savi = Label2.Text + " " + Chr(34) + NumericUpDown2.Text + Chr(34) + NexLig
        Savr = Label3.Text + " " + Chr(34) + NumericUpDown3.Text + Chr(34) + NexLig
 
        FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
        PrintLine(1, Sava, Savi, Savr) ' enregistrer
 
    End Sub

Donc si vous avez un indice sur ce que j'ai a ajouter pour formater mon fichier texte.

Comme j'aurais au-moin 50-60 commande a lister, certain avec des check box. Je devine que j'aurais a créer des loop incrémenter pour minimiser l'écriture de commande.

[Sankasssss]

slt,
tu as essayé VbCrlf pour les retour à la ligne?
sinon la fonction trim ce charge d'enlever les espaces devant et derière la chaine...

[godarium]

Alors tout en attendant une réponse, j'ai continué mes recherches.

j'ai trouvé ceci

Code :

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

PrintLine(1, Sava, TAB(1), Savi, TAB(1), Savr, TAB(1))

En test cela fonctionne bien (comme je le veut). mais a grande échelle, ca reste a vérifier si ca ce gère bien.


--------
Merci - Sankasssss
Si tu pouvait me spécifier la facon de l'utiliser (VbCrlf )

-J'ai effectivement trouver le Trim. Mais il enlève les espace avant d'être enregistré. donc ne change rien . ( a moin que je l'ai insérer au mauvaise endroit)

[Sankasssss]

Donc pour la constante vbCrLf il suffit de la concaténé à un string du genre :

Code :

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

dim str as string = "test " & VbCrLf

Sinon pour l'utilisation de PrintLine, j'ai été voir l'aide msdn et il conseil de l'utiliser sur plusieurs ligne comme ceci sans utiliser de retour à la ligne :

Code :

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

1
2
3
4
5
6
Print(1, "This is a test.")   ' Print text to file.
PrintLine(1)   ' Print blank line to file.
PrintLine(1, "Zone 1", TAB(), "Zone 2")   ' Print in two print zones.
PrintLine(1, "Hello", "World")   ' Separate strings with a tab.
PrintLine(1, SPC(5), "5 leading spaces ")   ' Print five leading spaces.
PrintLine(1, TAB(10), "Hello")   ' Print word at column 10.