[Résolu] Concaténation spécifique

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Concaténation spécifique

lefoimpeur

Bonjour,

Voici un extrait de code pour ma question:

Citation :

Write #fileNum, stationMES0.nom, stationMES0.ORDRE, stationMES0.UNITE, stationMES0.grandeur
Write #fileNum, stationMES1.nom, stationMES1.ORDRE, stationMES1.UNITE, stationMES1.grandeur
Write #fileNum, stationMES2.nom, stationMES2.ORDRE, stationMES2.UNITE, stationMES2.grandeur...

Donc, j'aurai voulu savoir si c'est possible, afin d'éviter de répéter x fois la même ligne, d'utiliser une variable "nb" par exemple comme ceci:

Citation :

for nb=0 to 10
Write #fileNum, stationMES & nb &.nom, stationMES & nb &.ORDRE, stationMES & nb &.UNITE, stationMES & nb &.grandeur
next

Le code que je viens de citer ci-dessus ne fonctionne pas évidemment, c'est pour expliquer ce que j'aimerai faire.

Est-il possible de faire ce genre de concaténation?
Si pas possible, existe-t-il une solution alternative?

Merci d'avance à tous ceux qui m'aideront.

Message édité par lefoimpeur le 02-03-2005 à 09:59:37

Publicité

djok_fb

C'était mieux avant!

Ca m'étonnerait que ce que tu veux faire soit faisable en VB.

Pourquoi tu n'as pas fait de tableaux?
Les Hashtable ou un truc du genre, ça existe en VB?

knakes

djok_fb a tout a fait raison. Transforme le tout en tableau et après ça ira tout seul.

lefoimpeur

Ah ouais, c'est vrai ça, pas bête l'idée du tableau!
Je tente ça demain

Merci

lefoimpeur

Donc en fait je vais m'expliquer un peu plus car l'idée du tableau c'est bien, mais...

J'ai développé un logiciel pour des stations météos et j'aimerais sauvegarder la configuration de chaque station dans un fichier de config sachant que ce fichier ne comportera pas toujours le même nombre de lignes.
Ce fichier contiendra les infos types noms, localisation de la station..., les paramètres de communication et la ou ça se corce c'est pour les paramètres concernant le nombre de données provenant de cette station.
Si la station nous envoi 3 mesures, il me faut pour chaque mesure paramètrer son nom, son unité.... donc un fichier de ce type:

Citation :

station1.cfg
nom,localisation
parametres de communication
donnee1,vitesse vent,m/s
donnee2,direction vent,°
donnee1,température,°C

Pour une autre station il n'y aura par exemple que 2 données:

Citation :

station2.cfg
nom,localisation
paramètres de communication
donnee1,vitesse vent,m/s
donnee2,direction vent,°

J'aimerais faire une fonction de lecture et une d'écriture d'un fichier de config qui serve pour tous les cas mais je ne sais comment faire pour que ce soit le plus dynamique et le plus souple possible au niveau de la prog...

Merci à tous ceux qui pourront m'aider.

yokaichan

Je sais ke pour moi ca marche avec un fichier csv ou txt en faisant comme suit:

Open App.Path & ".\fichier.txt" For Output As #1
For j = 1 To n
a = "stationMES" & nb &.nom
b = "stationMES" & nb &.ORDRE
c = "stationMES" & nb &.UNITE
d = "stationMES" & nb &.grandeur
Write #1, a,b,c,d
Next j
Close #1

Par contre pour le nombre de ligne c'est a toi de voir si tu peux le rechercher automatikement a chake fois,ou si c toi ki le mets j'espere ke ca pourra t'aider

lefoimpeur

Ah ben ça va faire mon bonheur si ça marche comme ça!
Cet aprem je ne suis pas à la boite, donc je verrais ça demain matin, mais si tu dis que chez toi ça passe je te fais confiance!!

Je te previendrais mon avancement, merci

yokaichan

Ouais enfin on est jamais sur de rien lol tiens moi au courant via le site ou yokaichan@hotmail.com etant donne ke je suis debutant mais ke je travaille sur certains trucs kan meme ca m'interesse de savoir ou tu en es lol merci d'avance

lefoimpeur

No pb t'inquiète, en général je répond toujours

knakes

Voilà ce que moi je te propose : un tableau

Dans un module tu mets cela (hors de Sub ou Function)

Code :

Private Const NbreStationMax = 100 ' Définition du nombre maximum de station (peut être modifié)
Private Type UserStation
Nom As String
Localisation As String
PramCom As String
Donnée1 As String
' etc etc
End Type
Dim Station(NbreStationMax) As UserStation

Dans ta commande d'écriture tu appelle la fonction Ecrire()

Code :

Function Ecrire()
Open App.Path & "\station.txt" For Output As #1 ' Attention : toutes les données présentes dans le fichier seront effacées
For i = 0 To NbreStationMax
If Station(i).Nom = "" Then Exit For 'Si nom station vide alors fin du traitement
Print #1, "<"
Print #1, "n" & Station(i).Nom
Print #1, "l" & Station(i).Localisation
Print #1, "c" & Station(i).PramCom
If Not Station(i).Donnée1 = "" Then Print #1, "d" & Station(i).Donnée1
Print #1, ">"
Next i
Close #1
End Function

Dans ta commande de lecture tu apelle la fonction Lire()

Code :

Function lire()
Dim a As String
Dim i As Integer
i = 0
Open App.Path & "\station.txt" For Input As #1
While Not EOF(1)
Input #1, a
If a = "<" Then
While Not a = ">"
Input #1, a
Select Case Left(a, 1)
Case "n"
Station(i).Nom = Right(a, Len(a) - 1)
Case "l"
Station(i).Localisation = Right(a, Len(a) - 1)
Case "c"
Station(i).PramCom = Right(a, Len(a) - 1)
Case "d"
Station(i).Donnée1 = Right(a, Len(a) - 1)
'etc etc
Case Else
End Select
End If
Wend
Close #1
End Function

Et voila
Si problème(s) envoie(z) un message privé.

Publicité

lefoimpeur

C'est sympa à vous tous de m'aider comme ça! :hello:

En fait ton idée de tableau ressemble fort à ce que j'ai fait sauf qu'au lieu de déclarer "Dim Station(NbreStationMax) As UserStation" je met "Dim Station As UserStation"!!! J'utilisais ça en tant que structure, je ne savais pas qu'on pouvait faire ça!! Du coup ça simplifierait plusieurs trucs dans mon code ça

Je me suis renseigné aussi pour faire un fichier .ini et avec toutes vos idées je pense pouvoir faire quelque chose de bien.

Je m'y met dès que je suis au boulot demain
Merci beaucoup!! :bounce:

Je donnerais de mes news de mon avancement!

lefoimpeur

Hello!!

Bon ben je vous remercie tous!!!
Ca fonctionne comme je le souhaitais.

Encore MERCI!!!

knakes

Ben moi je suis ravi pour toi.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Concaténation spécifique

Sujets relatifs
probleme en utilisant htmlentities[résolu]	Notice : Undefined Offset ??? [Resolu]
[Résolu] VS7-syntaxe highlighting avec n'importe quelle ext° fichier	IIS, Tomcat, NTLM & REMOTE USER [RESOLU]
[Résolu][VBA Word] insertion de rendez-vous dans outlook	executable de + de 7Mo [Résolu]
[résolu]tableau avec CSS, pb sous IE	Ressource (presque résolu)[résolu]
cin desynchro! [resolu]	[resolu] [SWT et MVC] modifier une pripriété d'un GUI de l'extérieur ?
Plus de sujets relatifs à : [Résolu] Concaténation spécifique

Page générée en 0.060 secondes