Aide pour un code
Fermé
toxyco
-
Modifié par toxyco le 9/06/2010 à 12:07
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010 - 10 juin 2010 à 11:45
toxyco Messages postés 7 Date d'inscription mercredi 9 juin 2010 Statut Membre Dernière intervention 11 juin 2010 - 10 juin 2010 à 11:45
A voir également:
- Aide pour un code
- Code asci - Guide
- Freewifi secure code ✓ - Forum Réseau
- Code 80072efe ✓ - Forum Windows
- Netflix code - Guide
- Code puk maroc telecom ✓ - Forum Mobile
9 réponses
kouki1000
Messages postés
108
Date d'inscription
dimanche 8 février 2009
Statut
Membre
Dernière intervention
5 novembre 2010
9
9 juin 2010 à 12:12
9 juin 2010 à 12:12
Si tu dis meme pas le language..
toxyco
Messages postés
7
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
11 juin 2010
9 juin 2010 à 12:29
9 juin 2010 à 12:29
oui dsl, en vbs
kouki1000
Messages postés
108
Date d'inscription
dimanche 8 février 2009
Statut
Membre
Dernière intervention
5 novembre 2010
9
9 juin 2010 à 12:55
9 juin 2010 à 12:55
Ah, bah je m'y connais pas en VBS ^^
A la rigueuer en VB.NET mais pas VBA, désolé
A la rigueuer en VB.NET mais pas VBA, désolé
dna.factory
Messages postés
23829
Date d'inscription
mercredi 18 avril 2007
Statut
Contributeur
Dernière intervention
24 mars 2023
1 625
9 juin 2010 à 13:01
9 juin 2010 à 13:01
oui et ?
ho j'ai compris, il faut qu'on le fasse à ta place...
ce site est là pour aider, pas pour faire les devoir à la place des autres.
si tu nous montres ce que tu as fait, ce que tu penses faire, ton algo, là où tu bloques, on pourras t'aider.
mais là, comme tu n'as rien fait, on ne peut pas t'aider.
https://www.google.fr/search?hl=fr&q=tutoriel+vbs+&meta=&gws_rd=ssl
ho j'ai compris, il faut qu'on le fasse à ta place...
ce site est là pour aider, pas pour faire les devoir à la place des autres.
si tu nous montres ce que tu as fait, ce que tu penses faire, ton algo, là où tu bloques, on pourras t'aider.
mais là, comme tu n'as rien fait, on ne peut pas t'aider.
https://www.google.fr/search?hl=fr&q=tutoriel+vbs+&meta=&gws_rd=ssl
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
toxyco
Messages postés
7
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
11 juin 2010
9 juin 2010 à 13:10
9 juin 2010 à 13:10
Pas grave merci quand meme ^^=)
toxyco
Messages postés
7
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
11 juin 2010
9 juin 2010 à 13:11
9 juin 2010 à 13:11
Oui non je voulais pas qu'on me le fasse mais qu'on m'orriente . merci pour le site j'essaye de le faire .
toxyco
Messages postés
7
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
11 juin 2010
Modifié par toxyco le 9/06/2010 à 15:13
Modifié par toxyco le 9/06/2010 à 15:13
dim path
path = "c:\QUEUS\cro\rebut"
Const Texte = "na"
Const sChaine = "na"
'Instruction Dim:
Dim aPos() , iPos
'Instruction ReDim:
ReDim aPos(0)
'Fonction InStr:
iPos = InStr(1, Texte, sChaine)
'Instruction While...Wend:
While iPos <> 0
'Fonction UBound:
ReDim Preserve aPos(UBound(aPos) + 1)
aPos(UBound(aPos)) = iPos
iPos = InStr(iPos + 1, Texte, sChaine)
Wend
'Instruction If...Then...Else:
If UBound(aPos) > 0 Then
Dim i , Resultat
Resultat = "L'occurrence """ & sChaine & """ na " & UBound(aPos) & " fois " &_
"dans l'expression " na """" & Texte & """" na
'Instruction For...Next:
'Fonction CS :
'Fonction Len:
For i = 1 To UBound(aPos)
Resultat = Resultat na "Postion: " & CStr(aPos(i)) & "," & CStr(aPos(i)) + Len(sChaine)
Next
Else
Resultat = "L'occurrence """ & sChaine & """ n'a pas été trouvée dans l'expression " na_
"""" & Texte & """"
End If
MsgBox Resultat
if resultat 1 = delete
path = "c:\QUEUS\cro\rebut"
Const Texte = "na"
Const sChaine = "na"
'Instruction Dim:
Dim aPos() , iPos
'Instruction ReDim:
ReDim aPos(0)
'Fonction InStr:
iPos = InStr(1, Texte, sChaine)
'Instruction While...Wend:
While iPos <> 0
'Fonction UBound:
ReDim Preserve aPos(UBound(aPos) + 1)
aPos(UBound(aPos)) = iPos
iPos = InStr(iPos + 1, Texte, sChaine)
Wend
'Instruction If...Then...Else:
If UBound(aPos) > 0 Then
Dim i , Resultat
Resultat = "L'occurrence """ & sChaine & """ na " & UBound(aPos) & " fois " &_
"dans l'expression " na """" & Texte & """" na
'Instruction For...Next:
'Fonction CS :
'Fonction Len:
For i = 1 To UBound(aPos)
Resultat = Resultat na "Postion: " & CStr(aPos(i)) & "," & CStr(aPos(i)) + Len(sChaine)
Next
Else
Resultat = "L'occurrence """ & sChaine & """ n'a pas été trouvée dans l'expression " na_
"""" & Texte & """"
End If
MsgBox Resultat
if resultat 1 = delete
toxyco
Messages postés
7
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
11 juin 2010
10 juin 2010 à 09:58
10 juin 2010 à 09:58
celui la et mieux masi marche pas
Dim stRep 'c:\xxxx\xxx\x
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Tmp"
If oFSO.FolderExists(stRep) Then
For each oFl in oFSO.GetFolder(stRep).Files
Wscript.Echo oFl.Name
Next
End If
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
Wscript.echo f.ReadAll
f.Close
pos = InStr(4, "na", "Juillet") 'renvoie 24
pos = InStr(27,"na", "Juillet") 'renvoie 0
File.Delete("c:\copyofmyfile.txt")
Console.WriteLine("Fichier c:\copyofmyfile.txt supprimé")
Dim stRep 'c:\xxxx\xxx\x
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Tmp"
If oFSO.FolderExists(stRep) Then
For each oFl in oFSO.GetFolder(stRep).Files
Wscript.Echo oFl.Name
Next
End If
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
Wscript.echo f.ReadAll
f.Close
pos = InStr(4, "na", "Juillet") 'renvoie 24
pos = InStr(27,"na", "Juillet") 'renvoie 0
File.Delete("c:\copyofmyfile.txt")
Console.WriteLine("Fichier c:\copyofmyfile.txt supprimé")
toxyco
Messages postés
7
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
11 juin 2010
10 juin 2010 à 11:45
10 juin 2010 à 11:45
y a quel qu'un ?