Concaténation de chaînes

**Miistik** · 22/01/2013, 11h30

Bonjour,

J'ai honte de poser cette question mais je galère

.

Je cherche à créer un message de rapport.

J'ai une variable fichier qui boucle.
Ex : toto , titi, tata , paul , robert

Je souhaite un message du style :

Rapport :
toto
titi
tata
paul
robert

Et j'arrive pas à mettre cela dans une variable string.

Code :

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

Message = "Rapport : " & vbCrlf

Après je sais pas comment ajouter Fichier pour chacune de ses valeurs.

Un coup de main ?

Merci.

Miistik

**kiksora_01** · 22/01/2013, 11h34

essaye
Code :
msgbox toto

**Miistik** · 22/01/2013, 11h36

Bonjour,

Merci à toi mais c'est plus compliqué que cela.

Je souhaite ré-utiliser la variable et la faire boucler.

Par exemple : Message = Message + Fichier
qui donne :

Rapport :
toto

**papyxy** · 22/01/2013, 12h01

Bonjour
Comment sont affectées les valeurs dans la variable?

**Miistik** · 22/01/2013, 12h06

Bonjour,

C'est une boucle qui lit ligne par ligne un fichier.
Donc au premier passage Fichier vaut toto
au deuxième tata
et ainsi de suite.

J'aimerai que toutes ces valeurs soit affiché dans une variable avec le formalisme de mon message initial.

**hackoofr** · 22/01/2013, 12h20

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fso,Fichier,Fichier_Line
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = fso.OpenTextFile("NomFichier.txt",1,True)
 
Do Until Fichier.AtEndOfStream
    Fichier_Line = Fichier.ReadLine
    tab = Split(Fichier_Line,",")
    Message = "Rapport :"
    For i=LBound(tab) To UBound(tab)
        Message = Message & vbcr & tab(i)
    Next
Loop
MsgBox Message,64,"Message"

**papyxy** · 22/01/2013, 12h49

Peut-être plus simple encore :

Code :

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

1
2
3
4
5
6
7
8
9
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = fso.OpenTextFile("NomFichier.txt")
    Message = "Rapport :" 
 Do Until Fichier.AtEndOfStream
    Line = Fichier.ReadLine
        Message = Message & vbcr & line
Loop
fichier.close
MsgBox Message

**hackoofr** · 22/01/2013, 13h01

Ou bien plus compliqué

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
16
17
18
19
20
21
Dim fso,Fichier,CheminFichier,Fichier_Line
Set fso = CreateObject("Scripting.FileSystemObject") 
CheminFichier = "c:\NomFichier.txt"
If Not fso.FileExists(CheminFichier) Then
	MsgBox "Le fichier " & CheminFichier & " n'existe pas",48,"Le fichier " & CheminFichier & n'existe pas"
	wscript.quit
Else
	Set Fichier = fso.OpenTextFile(CheminFichier,1,True)
	Do Until Fichier.AtEndOfStream
		Fichier_Line = Fichier.ReadLine
		tab = Split(Fichier_Line,",")
		Message = "Rapport :"
		For i=LBound(tab) To UBound(tab)
			Message = Message & vbcr & tab(i)
		Next
	Loop
	Fichier.Close
	Set Fichier = Nothing
	Set Fso = Nothing
End If
MsgBox Message,64,"Message"

**papyxy** · 22/01/2013, 13h07

Ce qui m’embête un peu, c'est le terme "Fichier".
Je ne vois pas comment l'interpréter!

**Miistik** · 22/01/2013, 13h16

Bonjour,

Oulà vous êtes parti loin avec des Split et tout.
Le cas avec des "," étaient un exemple.

J'ai un fichier texte qui contient sur chaque ligne le nom d'un fichier ceci après une recherche.
Je récupère donc chaque ligne (une par une => pas de ReadAll) dans une variable (Fichier).

Et je voudrais un affichage de toutes les valeurs de cette variable comme ceci :

Rapport :
1ere valeur
2eme
3eme
etc ...

Et tout ceci dans une variable pour l'utiliser dans un mail.

**papyxy** · 22/01/2013, 13h21

Ben alors, ma solution devrait vous intéresser.
Après exécution faudrait faire un copie/coller pour le mettre dans un courriel.
Si on peut pas le faire, faut créer un fichier 'txt' avec le contenu du message

**hackoofr** · 22/01/2013, 13h40

Envoyé par papyxy

Ben alors, ma solution devrait vous intéresser.
Après exécution faudrait faire un copie/coller pour le mettre dans un courriel.
Si on peut pas le faire, faut créer un fichier 'txt' avec le contenu du message

Donc la solution de Papyxy est la plus adéquate

Donc il faut être bien explicite quand vous posez une question pour ne pas aller plus loin

Si cette solution ne vous convient pas, alors postez votre code en entier pour voir vos vrais besoins

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = fso.OpenTextFile("NomFichier.txt")
Set FichierRapport = fso.OpenTextFile("Rapport.txt",2,True)
Message = "Rapport :" 
Do Until Fichier.AtEndOfStream
    Line = Fichier.ReadLine
    Message = Message & vbcr & line
Loop
FichierRapport.WriteLine Message
Fichier.Close
FichierRapport.Close
Set Fichier = Nothing
Set FichierRapport = Nothing
Set Fso = Nothing

**Miistik** · 22/01/2013, 13h41

Ton code seul fonctionne à merveille.

Mais intégré au mien : cela donne :

Rapport :
Fichier1

et après
Rapport :
Fichier2

Do Until Fichier.AtEndOfStream => Ceci est au tout début et j'ai des boucles imbriquées (7 ou 8)

Line = Fichier.ReadLine => Ceci est au milieu vu que je l'ai déjà utilisé.

EDIT : Mon code fait 186 lignes et il n'est pas fini. De plus, il touche la production de mon entreprise.

**papyxy** · 22/01/2013, 13h43

ouh! lala
faut que tu donnes ton code, car c'est pas clair!

**Miistik** · 22/01/2013, 13h50

Vous l'aurez voulu ^^

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Set Fichier = fso.OpenTextFile(Path_ListeXML,1,True)  
Set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false" ' permet de charger entièrement le document en mémoire avant le traitement
 
Do Until Fichier.AtEndOfStream
 
	Fichier_Line = Fichier.ReadLine
	'MsgBox(Fichier_Line)
	xmlDoc.load("C:\M3\" & Fichier_Line) ' ******** A utiliser pr pièces jointes MAIL !!!!!!! ******
	Set oElement = xmlDoc.documentElement
 
	If Not oElement Is Nothing Then
 
		Set XmlAttrib = oElement.getElementsByTagName("rmks")
 
		For Each x In XmlAttrib
 
			If x.Text="WEIGHT ADJ" Then		
'---------------------------------------------------------------------------------------------------------------------------
'RECHERCHE DES VALEURS CLÉS FICHIERS XML			
				For Each inventory In xmlDoc.selectNodes("/soapenv:Envelope/soapenv:Body/receiveInventory/inventoryReceipt")
 
					matiereXML = inventory.selectSingleNode("ptPart").Text
					'MsgBox(matiereXML)
					quantiteXML = inventory.selectSingleNode("lotserialQty").Text
					qXML = Replace(quantiteXML,".",",")
					locationXML =  inventory.selectSingleNode("location").Text
					'MsgBox(locationXML)
					lotXML =  inventory.selectSingleNode("lotserial").Text
					'MsgBox(lotXML)
'-----------------------------------------------------------------------------------------------------------------------------
'RECHERCHE CODE MATIÈRE DANS FICHIER DE CONFIGURATION
					Set FileConfig = fso.OpenTextFile("P:\Detection Ajustement Stock\FichierConfiguration.txt",1,True)
					FileConfig_data = FileConfig.ReadAll
					FileConfig.Close 
					arrLines = Split(FileConfig_data,vbCrLf)
					Set regEx = New RegExp
					regEx.Pattern = "qte_" & matiereXML
					'MsgBox("qte_" & matiereXML)
					regEx.IgnoreCase = True 
					regEx.Global = False 'Renvoyer seulement la première occurrence
 
					For Each strLine In arrLines
						'MsgBox(strLine)
						'Set occurrence = regEx.Execute(FileConfig_Data)
						occurrence = regEx.Test(strLine)
 
						If (occurrence = True) Then
							'MsgBox("OK")
							tab = Split(strLine,"=")
							qteAjustement = tab(1)
							'MsgBox(qteAjustement)
							qteXML=Csng(qXML)
							qteConf=Csng(qteAjustement)
 
							If (qteXML > qteConf) Then
								'MsgBox("Écart de Stock")
								'MsgBox("Le fichier " & Fichier_Line & " présente un écart de stock.")
								Message = "Rapport :" 
								Message = Message & vbcr & Fichier_Line
								MsgBox Message						End If	
 
						End If
 
					Next
 
				Next
 
			End If
 
		Next
 
	End If
 
Loop

Voilà

Il fonctionne niquel sauf ce rapport ...
Bon je suis pas expert VBS, je n'ai pas forcément les meilleures solutions pour réaliser ce que je souhaite.

**pc75** · 22/01/2013, 13h53

Bonjour,

Et comme ça :

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
 
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = fso.OpenTextFile("NomFichier.txt")
Set FichierRapport = fso.OpenTextFile("Rapport.txt",2,True)
Do Until Fichier.AtEndOfStream
    Line = Fichier.ReadLine
    Message = Message & line & vbcr
Loop
Message = "Rapport :" & vbcr & Message
FichierRapport.WriteLine Message
Fichier.Close
FichierRapport.Close
Set Fichier = Nothing
Set FichierRapport = Nothing
Set Fso = Nothing

**papyxy** · 22/01/2013, 14h09

Il me semble que la ligne 59 n'est pas à sa place :
la variable 'Message' doit être initialisée ("rapport:") avant la lecture du fichier, sinon est sera "écrasée" dans cette situation.

**pc75** · 22/01/2013, 14h14

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
 
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = fso.OpenTextFile("NomFichier.txt")
Set FichierRapport = fso.OpenTextFile("Rapport.txt",2,True)
Do Until Fichier.AtEndOfStream
    Line = Fichier.ReadLine
    Msg = Msg & line & vbcr
Loop
Message = "Rapport :" & vbcr & Msg
FichierRapport.WriteLine Message
Fichier.Close
FichierRapport.Close
Set Fichier = Nothing
Set FichierRapport = Nothing
Set Fso = Nothing

**hackoofr** · 22/01/2013, 14h16

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Set Fichier = fso.OpenTextFile(Path_ListeXML,1,True)  
Set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false" ' permet de charger entièrement le document en mémoire avant le traitement
Message = "Rapport :" 
Do Until Fichier.AtEndOfStream
 
    Fichier_Line = Fichier.ReadLine
    'MsgBox(Fichier_Line)
    xmlDoc.load("C:\M3\" & Fichier_Line) ' ******** A utiliser pr pièces jointes MAIL !!!!!!! ******
    Set oElement = xmlDoc.documentElement
 
    If Not oElement Is Nothing Then
 
        Set XmlAttrib = oElement.getElementsByTagName("rmks")
 
        For Each x In XmlAttrib
 
            If x.Text="WEIGHT ADJ" Then        
'---------------------------------------------------------------------------------------------------------------------------
'RECHERCHE DES VALEURS CLÉS FICHIERS XML            
                For Each inventory In xmlDoc.selectNodes("/soapenv:Envelope/soapenv:Body/receiveInventory/inventoryReceipt")
 
                    matiereXML = inventory.selectSingleNode("ptPart").Text
                    'MsgBox(matiereXML)
                    quantiteXML = inventory.selectSingleNode("lotserialQty").Text
                    qXML = Replace(quantiteXML,".",",")
                    locationXML =  inventory.selectSingleNode("location").Text
                    'MsgBox(locationXML)
                    lotXML =  inventory.selectSingleNode("lotserial").Text
                    'MsgBox(lotXML)
'-----------------------------------------------------------------------------------------------------------------------------
'RECHERCHE CODE MATIÈRE DANS FICHIER DE CONFIGURATION
                    Set FileConfig = fso.OpenTextFile("P:\Detection Ajustement Stock\FichierConfiguration.txt",1,True)
                    FileConfig_data = FileConfig.ReadAll
                    FileConfig.Close 
                    arrLines = Split(FileConfig_data,vbCrLf)
                    Set regEx = New RegExp
                    regEx.Pattern = "qte_" & matiereXML
                    'MsgBox("qte_" & matiereXML)
                    regEx.IgnoreCase = True 
                    regEx.Global = False 'Renvoyer seulement la première occurrence
 
                    For Each strLine In arrLines
                        'MsgBox(strLine)
                        'Set occurrence = regEx.Execute(FileConfig_Data)
                        occurrence = regEx.Test(strLine)
 
                        If (occurrence = True) Then
                            'MsgBox("OK")
                            tab = Split(strLine,"=")
                            qteAjustement = tab(1)
                            'MsgBox(qteAjustement)
                            qteXML=Csng(qXML)
                            qteConf=Csng(qteAjustement)
 
                            If (qteXML > qteConf) Then
                                'MsgBox("Écart de Stock")
                                'MsgBox("Le fichier " & Fichier_Line & " présente un écart de stock.") 
                                Message = Message & vbcr & Fichier_Line
                                MsgBox Message                        End If    
 
                        End If
 
                    Next
 
                Next
 
            End If
 
        Next
 
    End If
 
Loop

**Miistik** · 22/01/2013, 14h42

Rah presque.

J'obtiens ça :
Rapport :Fichier1 Fichier2.

EDIT : Euh étrange.

Code :

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

1
2
3
Message = "Rapport :" & vbcr & Message
MsgBox(Message)
Call SendMail("kevin.moine@genzyme.com", Message, "Rapport Script")

La MsgBox est niquel :
Rapport :
Fichier1
Fichier2

Mais dans le mail cela foire

Concaténation de chaînes

VBScript

Discussions similaires

Partager

Partager