begin process at 2012 02 14 09:23:57
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Fichier / Disque

 > 

Fichier - chaine


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Fichier - chaine

mardi 15 juillet 2003 à 11:56:03 | Fichier - chaine

salmoliv

Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :

[SOCIETE]
nomsoc=LEO PHARMACEUTICALS
matsoc=0863
[UTILISATEURS]
nbmatuti=1
matuti1=AD8KR

et que je le mets dans une variable avec le code ci dessous :
Open pathjob$ For Binary As 1
StINI = Input$(LOF(1), 1)
Close 1

La variable stINI sera :

"[SOCIETE]
nomsoc=LEO PHARMACEUTICALS
matsoc=0863
[UTILISATEURS]
nbmatuti=1
matuti1=AD8KR

J ai 3 caracteres bizaroides qui apparaissent ... "
A notter que celui du milieu varie suivant les fichiers ...

Pourquoi ???

Merci
mardi 15 juillet 2003 à 12:02:19 | Re : Fichier - chaine

rene38

Bonjour
Cherche à savoir ce que sont ces 3 caractères :
Debug.Print Asc(Mid(stINI, 1, 1)), Asc(Mid(stINI, 2, 1)), Asc(Mid(stINI, 3, 1))



-------------------------------
Réponse au message :
-------------------------------

> Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
>
> [SOCIETE]
> nomsoc=LEO PHARMACEUTICALS
> matsoc=0863
> [UTILISATEURS]
> nbmatuti=1
> matuti1=AD8KR
>
> et que je le mets dans une variable avec le code ci dessous :
> Open pathjob$ For Binary As 1
> StINI = Input$(LOF(1), 1)
> Close 1
>
> La variable stINI sera :
> 
> "[SOCIETE]
> nomsoc=LEO PHARMACEUTICALS
> matsoc=0863
> [UTILISATEURS]
> nbmatuti=1
> matuti1=AD8KR
>
> J ai 3 caracteres bizaroides qui apparaissent ... "
> A notter que celui du milieu varie suivant les fichiers ...
>
> Pourquoi ???
>
> Merci
mardi 15 juillet 2003 à 12:43:57 | Re : Fichier - chaine

salmoliv

Le premier : 91
Le second : 83
Et le troisieme : 79

Ce qui semble etre correct ...
91 = [
83=S
79=O

C est donc au moment de l enregistrer qu il rajoute des caracteres speciaux :
Open "c:\test.ini" For Binary As 1
Put 1, , stINI
Close 1

Si je reouvre le fichier ecris et que je "debug" les 7 premiers caracteres, j ai :
Le premier : 8 = code de control BS (??)
Le second est : 0 = NUL
Le troisieme : 55 = 7 (???)
Le quatrieme : 1 = SOH (???)
Et les 3 suivants qui sont bons ...

Pkoi VB rajoute t il ces codes ? Comment ne pas les mettre ??

Olivier


-------------------------------
Réponse au message :
-------------------------------

> Bonjour
> Cherche à savoir ce que sont ces 3 caractères :
> Debug.Print Asc(Mid(stINI, 1, 1)), Asc(Mid(stINI, 2, 1)), Asc(Mid(stINI, 3, 1))
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
> >
> > [SOCIETE]
> > nomsoc=LEO PHARMACEUTICALS
> > matsoc=0863
> > [UTILISATEURS]
> > nbmatuti=1
> > matuti1=AD8KR
> >
> > et que je le mets dans une variable avec le code ci dessous :
> > Open pathjob$ For Binary As 1
> > StINI = Input$(LOF(1), 1)
> > Close 1
> >
> > La variable stINI sera :
> > 
> > "[SOCIETE]
> > nomsoc=LEO PHARMACEUTICALS
> > matsoc=0863
> > [UTILISATEURS]
> > nbmatuti=1
> > matuti1=AD8KR
> >
> > J ai 3 caracteres bizaroides qui apparaissent ... "
> > A notter que celui du milieu varie suivant les fichiers ...
> >
> > Pourquoi ???
> >
> > Merci
>
mardi 15 juillet 2003 à 14:21:26 | Re : Fichier - chaine

sylric

Ce fichier est un fichier de configuration *.ini ou *.cfg ?
Si le but de ton code est de récupérer les valeurs des clefs, saches qu'il existe des API pour les lires, qui sont plus simple et plus rapides que des fonctions que tu ferais toi même !



-------------------------------
Réponse au message :
-------------------------------

> Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
>
> [SOCIETE]
> nomsoc=LEO PHARMACEUTICALS
> matsoc=0863
> [UTILISATEURS]
> nbmatuti=1
> matuti1=AD8KR
>
> et que je le mets dans une variable avec le code ci dessous :
> Open pathjob$ For Binary As 1
> StINI = Input$(LOF(1), 1)
> Close 1
>
> La variable stINI sera :
> 
> "[SOCIETE]
> nomsoc=LEO PHARMACEUTICALS
> matsoc=0863
> [UTILISATEURS]
> nbmatuti=1
> matuti1=AD8KR
>
> J ai 3 caracteres bizaroides qui apparaissent ... "
> A notter que celui du milieu varie suivant les fichiers ...
>
> Pourquoi ???
>
> Merci
mardi 15 juillet 2003 à 15:22:23 | Re : Fichier - chaine

salmoliv

Ceci est un fichier specifique a ma boite.
Cependant il a la meme structure qu un fichier ini ...

Je connais les API pour modifier / ecrire ...

Mais dans mon cas, je dois effacer des lignes ...
Si tu connais l API qui permet de supprimer des lignes dans un fichier ini, fait moi signe, car je ne la connais pas !!

Merci

Olivier


-------------------------------
Réponse au message :
-------------------------------

> Ce fichier est un fichier de configuration *.ini ou *.cfg ?
> Si le but de ton code est de récupérer les valeurs des clefs, saches qu'il existe des API pour les lires, qui sont plus simple et plus rapides que des fonctions que tu ferais toi même !
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
> >
> > [SOCIETE]
> > nomsoc=LEO PHARMACEUTICALS
> > matsoc=0863
> > [UTILISATEURS]
> > nbmatuti=1
> > matuti1=AD8KR
> >
> > et que je le mets dans une variable avec le code ci dessous :
> > Open pathjob$ For Binary As 1
> > StINI = Input$(LOF(1), 1)
> > Close 1
> >
> > La variable stINI sera :
> > 
> > "[SOCIETE]
> > nomsoc=LEO PHARMACEUTICALS
> > matsoc=0863
> > [UTILISATEURS]
> > nbmatuti=1
> > matuti1=AD8KR
> >
> > J ai 3 caracteres bizaroides qui apparaissent ... "
> > A notter que celui du milieu varie suivant les fichiers ...
> >
> > Pourquoi ???
> >
> > Merci
>
mardi 15 juillet 2003 à 16:18:35 | Re : Fichier - chaine

rene38

Trouvé ! (?)
Plus d'erreur si tu déclares ta variable avant utilisation :
Dim stINI As String




-------------------------------
Réponse au message :
-------------------------------

> Le premier : 91
> Le second : 83
> Et le troisieme : 79
>
> Ce qui semble etre correct ...
> 91 = [
> 83=S
> 79=O
>
> C est donc au moment de l enregistrer qu il rajoute des caracteres speciaux :
> Open "c:\test.ini" For Binary As 1
> Put 1, , stINI
> Close 1
>
> Si je reouvre le fichier ecris et que je "debug" les 7 premiers caracteres, j ai :
> Le premier : 8 = code de control BS (??)
> Le second est : 0 = NUL
> Le troisieme : 55 = 7 (???)
> Le quatrieme : 1 = SOH (???)
> Et les 3 suivants qui sont bons ...
>
> Pkoi VB rajoute t il ces codes ? Comment ne pas les mettre ??
>
> Olivier
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour
> > Cherche à savoir ce que sont ces 3 caractères :
> > Debug.Print Asc(Mid(stINI, 1, 1)), Asc(Mid(stINI, 2, 1)), Asc(Mid(stINI, 3, 1))
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
> > >
> > > [SOCIETE]
> > > nomsoc=LEO PHARMACEUTICALS
> > > matsoc=0863
> > > [UTILISATEURS]
> > > nbmatuti=1
> > > matuti1=AD8KR
> > >
> > > et que je le mets dans une variable avec le code ci dessous :
> > > Open pathjob$ For Binary As 1
> > > StINI = Input$(LOF(1), 1)
> > > Close 1
> > >
> > > La variable stINI sera :
> > > 
> > > "[SOCIETE]
> > > nomsoc=LEO PHARMACEUTICALS
> > > matsoc=0863
> > > [UTILISATEURS]
> > > nbmatuti=1
> > > matuti1=AD8KR
> > >
> > > J ai 3 caracteres bizaroides qui apparaissent ... "
> > > A notter que celui du milieu varie suivant les fichiers ...
> > >
> > > Pourquoi ???
> > >
> > > Merci
> >
>
mardi 15 juillet 2003 à 16:23:47 | Re : Fichier - chaine

sylric

Il existe au moins quatre API pour les fichier de ce types :
GetPrivateProfileString ' récupère une valeur
WritePrivateProfileString ' ecrit une valeur
et
GetPrivateProfileSection ' récupère toute la rubrique
WritePrivateProfileSection ' ecrit toute la rubric

pour effacer des lignes dans une rubric,
tu met en variable toutes les valeurs que tu veux garder avec GetPrivateProfileString.
tu utilises WritePrivateProfileSection en donnant aucun paramètres à par la section (ou rubric) pour supprimer les ligne de la section
tu réécris les lignes que tu voulais garder avec WritePrivateProfileString

Pour effacer le nom d'une rubric, j'utilise cette méthode :
(je tiens à préciser que ce morceau de code, à qqchose près, a été déposé sur le forum par un auteur dont je ne me rappelle plus le nom... merci à lui)

'ligne à supprimer
Strg = "[" & NomRubric & "]"
'Charge le fichier dans une chaine
MyFile = FreeFile
Open CheminFichierINI For Binary As MyFile
StrINI = Input$(LOF(MyFile), MyFile)
Close MyFile
'Recherche la position du début de la ligne et du saut en fin de ligne...
PosS = InStr(LCase(StrINI), LCase(Strg))
PosE = InStr(PosS, LCase(StrINI), Chr(13) & Chr(10))
'Reconstruction de la chaine sans la ligne
strNewINI = Left(StrINI, PosS - 1) & Mid(StrINI, PosE + 2)
'On écrase le fichier avec sa nouvelle forme
' Kill CheminFichierINI
MyFile = FreeFile
Open CheminFichierINI For Binary As MyFile
Put MyFile, , stNewINI
Close MyFile


pour la déclaration des fonctions :

Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long




-------------------------------
Réponse au message :
-------------------------------

> Ceci est un fichier specifique a ma boite.
> Cependant il a la meme structure qu un fichier ini ...
>
> Je connais les API pour modifier / ecrire ...
>
> Mais dans mon cas, je dois effacer des lignes ...
> Si tu connais l API qui permet de supprimer des lignes dans un fichier ini, fait moi signe, car je ne la connais pas !!
>
> Merci
>
> Olivier
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Ce fichier est un fichier de configuration *.ini ou *.cfg ?
> > Si le but de ton code est de récupérer les valeurs des clefs, saches qu'il existe des API pour les lires, qui sont plus simple et plus rapides que des fonctions que tu ferais toi même !
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
> > >
> > > [SOCIETE]
> > > nomsoc=LEO PHARMACEUTICALS
> > > matsoc=0863
> > > [UTILISATEURS]
> > > nbmatuti=1
> > > matuti1=AD8KR
> > >
> > > et que je le mets dans une variable avec le code ci dessous :
> > > Open pathjob$ For Binary As 1
> > > StINI = Input$(LOF(1), 1)
> > > Close 1
> > >
> > > La variable stINI sera :
> > > 
> > > "[SOCIETE]
> > > nomsoc=LEO PHARMACEUTICALS
> > > matsoc=0863
> > > [UTILISATEURS]
> > > nbmatuti=1
> > > matuti1=AD8KR
> > >
> > > J ai 3 caracteres bizaroides qui apparaissent ... "
> > > A notter que celui du milieu varie suivant les fichiers ...
> > >
> > > Pourquoi ???
> > >
> > > Merci
> >
>
mardi 15 juillet 2003 à 16:27:45 | Re : Fichier - chaine

salmoliv

Chapeau !!! Ca marche nickel ;-)

Merci beaucoup pour ton aide.

Olivier


-------------------------------
Réponse au message :
-------------------------------

> Trouvé ! (?)
> Plus d'erreur si tu déclares ta variable avant utilisation :
> Dim stINI As String
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Le premier : 91
> > Le second : 83
> > Et le troisieme : 79
> >
> > Ce qui semble etre correct ...
> > 91 = [
> > 83=S
> > 79=O
> >
> > C est donc au moment de l enregistrer qu il rajoute des caracteres speciaux :
> > Open "c:\test.ini" For Binary As 1
> > Put 1, , stINI
> > Close 1
> >
> > Si je reouvre le fichier ecris et que je "debug" les 7 premiers caracteres, j ai :
> > Le premier : 8 = code de control BS (??)
> > Le second est : 0 = NUL
> > Le troisieme : 55 = 7 (???)
> > Le quatrieme : 1 = SOH (???)
> > Et les 3 suivants qui sont bons ...
> >
> > Pkoi VB rajoute t il ces codes ? Comment ne pas les mettre ??
> >
> > Olivier
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour
> > > Cherche à savoir ce que sont ces 3 caractères :
> > > Debug.Print Asc(Mid(stINI, 1, 1)), Asc(Mid(stINI, 2, 1)), Asc(Mid(stINI, 3, 1))
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
> > > >
> > > > [SOCIETE]
> > > > nomsoc=LEO PHARMACEUTICALS
> > > > matsoc=0863
> > > > [UTILISATEURS]
> > > > nbmatuti=1
> > > > matuti1=AD8KR
> > > >
> > > > et que je le mets dans une variable avec le code ci dessous :
> > > > Open pathjob$ For Binary As 1
> > > > StINI = Input$(LOF(1), 1)
> > > > Close 1
> > > >
> > > > La variable stINI sera :
> > > > 
> > > > "[SOCIETE]
> > > > nomsoc=LEO PHARMACEUTICALS
> > > > matsoc=0863
> > > > [UTILISATEURS]
> > > > nbmatuti=1
> > > > matuti1=AD8KR
> > > >
> > > > J ai 3 caracteres bizaroides qui apparaissent ... "
> > > > A notter que celui du milieu varie suivant les fichiers ...
> > > >
> > > > Pourquoi ???
> > > >
> > > > Merci
> > >
> >
>
mardi 15 juillet 2003 à 16:45:35 | Re : Fichier - chaine

salmoliv

Merci de tonm aide, mais c est le bout de code que j utilise ...

Olivier


-------------------------------
Réponse au message :
-------------------------------

> Il existe au moins quatre API pour les fichier de ce types :
> GetPrivateProfileString ' récupère une valeur
> WritePrivateProfileString ' ecrit une valeur
> et
> GetPrivateProfileSection ' récupère toute la rubrique
> WritePrivateProfileSection ' ecrit toute la rubric
>
> pour effacer des lignes dans une rubric,
> tu met en variable toutes les valeurs que tu veux garder avec GetPrivateProfileString.
> tu utilises WritePrivateProfileSection en donnant aucun paramètres à par la section (ou rubric) pour supprimer les ligne de la section
> tu réécris les lignes que tu voulais garder avec WritePrivateProfileString
>
> Pour effacer le nom d'une rubric, j'utilise cette méthode :
> (je tiens à préciser que ce morceau de code, à qqchose près, a été déposé sur le forum par un auteur dont je ne me rappelle plus le nom... merci à lui)
>

> 'ligne à supprimer
> Strg = "[" & NomRubric & "]"
> 'Charge le fichier dans une chaine
> MyFile = FreeFile
> Open CheminFichierINI For Binary As MyFile
> StrINI = Input$(LOF(MyFile), MyFile)
> Close MyFile
> 'Recherche la position du début de la ligne et du saut en fin de ligne...
> PosS = InStr(LCase(StrINI), LCase(Strg))
> PosE = InStr(PosS, LCase(StrINI), Chr(13) & Chr(10))
> 'Reconstruction de la chaine sans la ligne
> strNewINI = Left(StrINI, PosS - 1) & Mid(StrINI, PosE + 2)
> 'On écrase le fichier avec sa nouvelle forme
> ' Kill CheminFichierINI
> MyFile = FreeFile
> Open CheminFichierINI For Binary As MyFile
> Put MyFile, , stNewINI
> Close MyFile
>

>
> pour la déclaration des fonctions :
>

> Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
>
> Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
>
> Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
>
> Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
>

>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Ceci est un fichier specifique a ma boite.
> > Cependant il a la meme structure qu un fichier ini ...
> >
> > Je connais les API pour modifier / ecrire ...
> >
> > Mais dans mon cas, je dois effacer des lignes ...
> > Si tu connais l API qui permet de supprimer des lignes dans un fichier ini, fait moi signe, car je ne la connais pas !!
> >
> > Merci
> >
> > Olivier
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Ce fichier est un fichier de configuration *.ini ou *.cfg ?
> > > Si le but de ton code est de récupérer les valeurs des clefs, saches qu'il existe des API pour les lires, qui sont plus simple et plus rapides que des fonctions que tu ferais toi même !
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Bonjour, lorsque je charge un fichier qui a cette allure sous notepad (ou autre) :
> > > >
> > > > [SOCIETE]
> > > > nomsoc=LEO PHARMACEUTICALS
> > > > matsoc=0863
> > > > [UTILISATEURS]
> > > > nbmatuti=1
> > > > matuti1=AD8KR
> > > >
> > > > et que je le mets dans une variable avec le code ci dessous :
> > > > Open pathjob$ For Binary As 1
> > > > StINI = Input$(LOF(1), 1)
> > > > Close 1
> > > >
> > > > La variable stINI sera :
> > > > 
> > > > "[SOCIETE]
> > > > nomsoc=LEO PHARMACEUTICALS
> > > > matsoc=0863
> > > > [UTILISATEURS]
> > > > nbmatuti=1
> > > > matuti1=AD8KR
> > > >
> > > > J ai 3 caracteres bizaroides qui apparaissent ... "
> > > > A notter que celui du milieu varie suivant les fichiers ...
> > > >
> > > > Pourquoi ???
> > > >
> > > > Merci
> > >
> >
>


Cette discussion est classée dans : fichier, chaine, societe, nomsoc, leo


Répondre à ce message

Sujets en rapport avec ce message

URGENT!!!Debutant en VB6 Cherche Aide [ par Princedukashmir ] Bonjour, Can you help me please ???? Voila ce que je dois faire: Faire 5 fonctions qui doivent être optimisées à fond : le moins de code possible et l URGENTISSIME!!!! Debutant cherche un boss for help [ par Princedukashmir ] Bonjour, Can you help me please ???? Voila ce que je dois faire: Faire 5 fonctions qui doivent être optimisées à fond : le moins de code possible et l MESSAGE POUR MARINIER!!!!!!!!!! [ par Princedukashmir ] Bonjour Marinier,J'ai remarqué que tu est trés fort sur VB (Tu as reponse à beaucoup de problèmes...) et j'aimerai que tu m'aide,si c'est possible.Voi Access et fichier TXT via la fonction TransferText 2 - Le retour :-( - AIDEZ-MOI !!! [ par Seb ] Bonsoir,Il semblerait que j'ai un peu avancé dans mon projet mais hélas ca foire un maximum.Je mexplique.J'ai un fichier texte par exemple ainsi :a Lecture de fichier - Methode Rapide [ par aKheNathOn ] J'ai vraiment un gros soucis car si je mets environ 2 minutes pour lire un fichier exe de 94 Ko , et ben je suis pas arrivé d'affaire avec les fichier Lecture de fichier - Methode Rapide [ par aKheNathOn ] J'ai vraiment un gros soucis car si je mets environ 2 minutes pour lire un fichier exe de 94 Ko , et ben je suis pas arrivé d'affaire avec les fichier Problèmes de guillemets [ par MorpionMx ] Bonjour !Voila, j'ai besoin pour un petit programme d'enregistrer le texte d'un TextBox dans un fichier.Don pour cela, j'ai une variable de type strin Pb d extraction de chaine et de copie [ par Rastacana ] Voila je desire extraire des chaines de characteres via le separateur / et copier se ki se trouve entre les / et le coller dans des fichiers *.000 jus


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,248 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales