enregistrement + 1

Question

Salut a tous 
je voudrais faire un enregistrement dans la base de registre 
et a chaque enregistrement je voudrais faire + 1
j'ai tester avec :
 For i = 1 To 20 step 1         (ou meme sans step 1)
bla bla & i <> "" Then
bla bla & i + 1
End If 
Next i

sauf que la dans la boucle il creer directement 
les 20 enregistrements avec mon contenu
moi je voudrais faire mon enregistrement avec + 1 a chaque enregistrement sans les les 20 autres
merci pour votre aide
 (je merde grave avec les boucles)

merci 
assel

NicoSoftt · Answer

Salut 


Si je comprends bien tu as le meme enregistrement 20 fois sous 20 noms diff&#233;rents

et tu veux que l'enregistrement change aussi selon le nom ?



Soit clair veux-tu


Voila
N$

cs_CanisLupus · Answer

Pas tr&#232;s clair en effet ton post.
Ce n'est s&#251;rement pas avec le code que tu as montr&#233; que tu &#233;cris dans la Registry.
Il y a plein d'exemples de manipulation de la registry sur ce site. Cherche un peu.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

AsselusBorealiss · Answer

Salut NicoSoftt
l'enregistrement dans la base de registre s'effect de la facon suivante
Exemple
couleur = text1.txt
\ cle "toto" \ Sous cle i \ Valeur de chaine "voiture" \ contenu de valeur de chaine couleur

donc quand je lance mon prog cela donne ( il enregistre la sous cle ( i )  )

 cle  "toto"
 sous cle  1 (a 20)
               2    
               3
              etc
             20

moi je voudrais qu'il enregistre la premiere Sous cle 1(exemple : si un seul enregistrement )
et apres qu'il enregistre la sous cle en 2 (si simplement 2 enregistrement ) et ainsi de suite

Voila Nico

j'espere etre assez Clair  

merci 

assel

ps si tu a la solution pour lire aussi chaque valeur de chaine de chaque sous cle ....

je prend aussi

Bonne Fin Week

AsselusBorealiss · Answer

salut CanisLupus

effect le code complet est 

couleur = text1.txt

For i = 1 To 20

If GetSetting("toto", i, "voiture", i) <> "" Then
SaveSetting "toto", i, "voiture", couleur  
  
End If
Next i

j'ai effect des recherche sur le site et j'ai rien compris desole je ne suis pas un pro de VB 

merci
assel

NicoSoftt · Answer

Salut,

Bon comme je comprends pas trop voila :

1 proc&#233;dure pour ecrire dans la base de registre.

1 fonction pour lire dans la base de registre.

Public Sub Ecrire(Ou, Quoi)

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Nico$oft\N$ Chat" & Ou, Quoi

End Sub



Public Function Lire(Ou)

On error resume next

Set WshShell = CreateObject("Wscript.Shell")

Lire = WshShell.regread(Ou)

End Function

...

NicoSoftt · Answer

Excuse-moi; j'ai pris dans une ancienne source et y'a des restes...


Bon comme je comprends pas trop voila :


1 proc&#233;dure pour ecrire dans la base de registre.


1 fonction pour lire dans la base de registre.



Public Sub Ecrire(Ou, Quoi)


Set WshShell = CreateObject("Wscript.Shell")


WshShell.RegWrite Ou, Quoi


End Sub




Public Function Lire(Ou)


On error resume next


Set WshShell = CreateObject("Wscript.Shell")


Lire = WshShell.regread(Ou)


End Function

cs_CanisLupus · Answer

Bon, je n'ai pas le temps de tout t'expliquer maintenant car j'ai d'autres obligations.
Mais en attendant, tes getsetting et savesetting, j'aimerais savoir o&#249; tu les as p&#233;ch&#233;s. Normalement, &#224; la place de "toto", c'est le code de l'HKEY qu'il faut mettre.
D&#233;sol&#233;, rendez-vous demain, si personne ne t'a fourni une soluton ou si tu ne l'a pas trouv&#233;e toi-m&#234;me.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

AsselusBorealiss · Answer

NicoSoftt  

je voudrais utiliser le format 

GetSetting("cle", "sous cle", "valeur de chaine", "contenu de valeur de chaine") <> "" Then
SaveSetting "cle", "sous cle", "valeur de chaine", "contenu de valeur de chaine "   

puisque tous mon prog l'utilise 

j'ai essayer avec la facon Wscript.Shell et j'ai jamais reussi a faire quelque chose

 CanisLupus

quand meme bien plus simple pour ecrire dans la base de registre ( enfin pour moi )

merci 

assel 

Bonne fin de Week

cs_CanisLupus · Answer

Hier, je pensais te donner un exemple avec les API car plus rapide mais puisque tu trouves WshShell plus simple, voici un code qui respecte le format que tu veux avec WshShell.

Dans un module, tu mets ce qui suit :

' Cette fonction renvoie "" si la cl&#233; et/ou valeur n'existent pas ou si la valeur est vide
' sinon elle renvoie le contenu
Public Function GetSetting(Cle As String, SousCle As String, Valeur As String, Contenu As String) As String
Dim WshShell As Object
Dim Resultat As String


  GetSetting = False
  Set WshShell = CreateObject("Wscript.Shell")
  On Error Resume Next
  Resultat = WshShell.RegRead(Cle & "" & SousCle & "" & Valeur)
  GetSetting = Resultat
  Set WshShell = Nothing
  
End Function

' Avec cette proc, tu &#233;cris ton contenu en cr&#233;ant la valeur si elle n'existe pas
Public Sub SetSetting(Cle As String, SousCle As String, Valeur As String, Contenu As String)
Dim WshShell As Object


  Set WshShell = CreateObject("Wscript.Shell")
  WshShell.RegWrite Cle & "" & SousCle & "" & Valeur, Contenu
  Set WshShell = Nothing
  
End Sub


Puis, o&#249; tu veux, tu les appelles comme &#231;a, pour l'essai, je l'ai mis dans un commandbutton, &#224; toi d'en faire ce que tu souhaites :

Private Sub Command1_Click()
Dim SousCle As String
Dim ContenuChaine As String
Dim i As Integer


SousCle = "software\essai"
ContenuChaine = "truc"


  For i = 1 To 20
    If GetSetting("HKEY_LOCAL_MACHINE", SousCle, CStr(i), ContenuChaine) = "" Then
      Call SetSetting("HKEY_LOCAL_MACHINE", SousCle, CStr(i), ContenuChaine)
    End If
  Next
  
End Sub

J'esp&#232;re que &#231;a r&#233;pond &#224; ta question.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

AsselusBorealiss · Answer

Salut CanisLupus

et merci pour ton aide

j'ai le meme resultat qu'avec mes 4 lignes de code  (sans module )

il fait une creation dans HKLM de 20 lignes avec comme valeur = truc ( 20 X la meme ligne )

------------------------------------------------------------------------------------
pour faire plus simple
test le code suivant ( 2 textbox et 1 commandbutton colle le code si dessous et remplis le text1 et text2  2 ou 3 fois et cherche dans la base de registre aideCanisLupus   ) 

Public Sub Command1_Click()
Dim contenu_1 As String
contenu_1 = Text1.Text
Dim contenu_2 As String
contenu_2 = Text2.Text
For i = 1 To 20


If GetSetting("aideCanisLupus", contenu_1, "Valeur_de_chaine", i) <> "" Then
SaveSetting "aideCanisLupus", contenu_1, "Valeur_de_chaine", contenu_1    'sauvegarde MonEmail dans i


SaveSetting "aideCanisLupus", contenu_1, "Valeur_de_chaine_2", contenu_2  'pour un 2em enregistrement dans la meme valeur de chaine


End If
Next i
Fin:


Text1.Text = ""
Text2.Text = ""
End Sub


et en suite je voudrais lire toute les valeurs de chaines de toutes les sous cle et afficher le contenu ( dans un combo par exemple )

plus simple , je peut pas 

assel

cs_CanisLupus · Answer

D&#233;sol&#233;, je viens de comprendre (tu ne l'avais pas pr&#233;cis&#233;) que tu &#233;tais en vb.net.
Les exemples donn&#233;s sont en vb6.
Je n'ai pas encore &#233;tudi&#233; les &#233;quivalences entre vb6 et vb.net pour ce qui est de la base de registre.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

AsselusBorealiss · Answer

non non je suis en Visual Basic 6 ( j'ai deja du mal en vb6 alors imagine en .net  )

assel

cs_CanisLupus · Answer

Hou l&#224;, je devais &#234;tre &#224; l'ouest ce weekend !
Bien s&#251;r ! Tu utilises les fonctions Getsetting et Savesetting de vb6 que j'avais compl&#232;tement oubli&#233;es.
En effet, ces fonctions permettent de lire et d'&#233;crire uniquement dans le HKEY_USERS\.DEFAULT\Software\VB and VBA Program Settings, c'est d'ailleurs pour &#231;a que je les ai abandonn&#233;es. Trop limit&#233;es.
En gros, pour moi, &#231;a ne pouvait servir qu'&#224; remplacer les fichiers.ini.

Mais, bon, si tu te sens plus &#224; l'aise avec, il y a une 3&#232;me fonction qui peut faire ce que tu souhaites : GetAllSettings

Si tu n'as pas la MSDN, voil&#224; l'exemple qu'elle propose :

' Variant devant contenir un tableau &#224; deux dimensions renvoy&#233; par la 
' fonction GetAllSettings Nombre entier correspondant &#224; la valeur du compteur.
Dim MySettings As Variant, intSettings As Integer
' Place des param&#232;tres dans la base de registres.
SaveSetting appname :=  "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Extrait les param&#232;tres.
MySettings =  GetAllSettings(appname :=  "MyApp", section : = "Startup")
   For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
      Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
   Next intSettings
DeleteSetting "MyApp", "Startup"


Vois si &#231;a te convient.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

AsselusBorealiss · Answer

mouais entre :

SaveSetting "Myapp", "Startup", "Top",  text1.text 
       et 
SaveSetting AppName:=App.Title, Section:="Startup", Key:="Top", setting:=text1.text

ca m'explique pas comment faire une boucle pour creer plusieur "" Section:= "" 


Et arriver &#224; les relire dans un combo (exemple) 

assel

(ps : tu a tester le petit bou de code)

cs_CanisLupus · Answer

Rajoute une combo (combo1) sur ta feuille et testes ce code :

Public Sub Command1_Click()
Dim MySettings As Variant, intSettings As Integer
Dim contenu_1 As String
Dim contenu_2 As String
Dim i As Integer


  contenu_1 = Text1.Text
  contenu_2 = Text2.Text


  For i = 1 To 20
    If GetSetting("aideCanisLupus", CStr(i), "Valeur_de_chaine", i) <> "" Then
      SaveSetting "aideCanisLupus", CStr(i), "Valeur_de_chaine", contenu_1    'sauvegarde MonEmail dans i
      SaveSetting "aideCanisLupus", CStr(i), "Valeur_de_chaine_2", contenu_2  'pour un 2em enregistrement dans la meme valeur de chaine
    End If
  Next i


' Affiche tout les contenus
  For i = 1 To 20
    MySettings = GetAllSettings(appname:="aideCanisLupus", section:=CStr(i))
    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)      Combo1.AddItem "Cl&#233; " & i & " valeur " & MySettings(intSettings, 0) & " : contenu = " & MySettings(intSettings, 1)
    Next intSettings
  Next


End Sub

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Enregistrement + 1

15 réponses

Discussions similaires