Concaténation de chaînes

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/01/2013, 11h30
Miistik

Concaténation de chaînes

Bonjour,

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

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:

Message = "Rapport : " & vbCrlf

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

Un coup de main ?

Merci.

Miistik
22/01/2013, 11h34
kiksora_01

essaye
Code :
msgbox toto
22/01/2013, 11h36
Miistik

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
22/01/2013, 12h01
papyxy

Bonjour
Comment sont affectées les valeurs dans la variable?
22/01/2013, 12h06
Miistik

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.

:salut:

Code:

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"

Peut-être plus simple encore :

Code:

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

:salut:
Ou bien plus compliqué :mouarf:

Code:

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"

22/01/2013, 13h07
papyxy

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

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.
22/01/2013, 13h21
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

Citation:

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 :ccool:
Donc il faut être bien explicite quand vous posez une question pour ne pas aller plus loin :mouarf:
Si cette solution ne vous convient pas, alors postez votre code en entier pour voir vos vrais besoins
:merci:
Code:

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

22/01/2013, 13h41
Miistik

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.
22/01/2013, 13h43
papyxy

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

Vous l'aurez voulu ^^

Code:

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à :aie:

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.

Bonjour,

Et comme ça :

Code:

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

22/01/2013, 14h09
papyxy

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.

Code:

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

:salut:

Code:

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

22/01/2013, 14h42
Miistik
Rah presque.

J'obtiens ça :
Rapport :Fichier1 Fichier2.

EDIT : Euh étrange.
Code:

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

Voir 40 message(s) de cette discussion en une page