Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 03:38:13

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 709 membres
56 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 795 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PASSAGE DE PARAMETRES À UN "SHELL"

Information sur la source

Catégorie :Shell Classé sous : passage, shell, parametres, nombre, arguments Niveau : Initié Date de création : 14/01/2000 Vu : 21 486

Auteur : pepito

Site perso

Ecrire un message privé

Note :

5,90 / 10

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Ces deux fonctions permettrent de recuperer "proprement" le nombre de parametres passes a un shell et de les adresser par leur numero.

Source

Public Function LitParametre(Compte As Integer) As String
Dim i As Long
Dim j As Integer
Dim c As String
Dim bInside As Boolean
Dim bQuoted As Boolean
j = 1
bInside = False
bQuoted = False
LitParametre = ""
For i = 1 To Len(Command)
c = Mid$(Command, i, 1)
If bInside And bQuoted Then
If c = """" Then
j = j + 1
bInside = False
bQuoted = False
End If
ElseIf bInside And Not bQuoted Then
If c = " " Then
j = j + 1
bInside = False
bQuoted = False
End If
Else
If c = """" Then
If j > Compte Then Exit Function
bInside = True
bQuoted = True
ElseIf c <> " " Then
If j > Compte Then Exit Function
bInside = True
bQuoted = False
End If
End If
If bInside And j = Compte And c <> """" Then LitParametre = LitParametre & c
Next i
End Function
'------------------------------------------------
Public Function NbParametres() As Integer
Dim i As Long
Dim c As String
Dim bInside As Boolean
Dim bQuoted As Boolean
NbParametres = 0
bInside = False
bQuoted = False
For i = 1 To Len(Command)
c = Mid$(Command, i, 1)
If bInside And bQuoted Then
If c = """" Then
NbParametres = NbParametres + 1
bInside = False
bQuoted = False
End If
ElseIf bInside And Not bQuoted Then
If c = " " Then
NbParametres = NbParametres + 1
bInside = False
bQuoted = False
End If
Else
If c = """" Then
bInside = True
bQuoted = True
ElseIf c <> " " Then
bInside = True
bQuoted = False
End If
End If
Next i
If bInside Then NbParametres = NbParametres + 1
End Function

Public Function LitParametre(Compte As Integer) As String

    Dim i As Long
    Dim j As Integer
    Dim c As String
    Dim bInside As Boolean
    Dim bQuoted As Boolean

    j = 1
    bInside = False
    bQuoted = False
    LitParametre = ""

    For i = 1 To Len(Command)

        c = Mid$(Command, i, 1)

        If bInside And bQuoted Then
            If c = """" Then
                j = j + 1
                bInside = False
                bQuoted = False
            End If
        ElseIf bInside And Not bQuoted Then
            If c = " " Then
                j = j + 1
                bInside = False
                bQuoted = False
            End If
        Else
            If c = """" Then
                If j > Compte Then Exit Function
                bInside = True
                bQuoted = True
            ElseIf c <> " " Then
                If j > Compte Then Exit Function
                bInside = True
                bQuoted = False
            End If
        End If

        If bInside And j = Compte And c <> """" Then LitParametre = LitParametre & c

    Next i

End Function
'------------------------------------------------
Public Function NbParametres() As Integer

    Dim i As Long
    Dim c As String
    Dim bInside As Boolean
    Dim bQuoted As Boolean

    NbParametres = 0
    bInside = False
    bQuoted = False

    For i = 1 To Len(Command)

        c = Mid$(Command, i, 1)

        If bInside And bQuoted Then
            If c = """" Then
                NbParametres = NbParametres + 1
                bInside = False
                bQuoted = False
            End If
        ElseIf bInside And Not bQuoted Then
            If c = " " Then
                NbParametres = NbParametres + 1
                bInside = False
                bQuoted = False
            End If
        Else
            If c = """" Then
                bInside = True
                bQuoted = True
            ElseIf c <> " " Then
                bInside = True
                bQuoted = False
            End If
        End If

    Next i

    If bInside Then NbParametres = NbParametres + 1

End Function

Conclusion

La fonction NbParametres renvoie un entier représentant le nombre de paramètres passés en ligne de commande..
La fonction LitParametre permet de lire l'un de ces parametres.

Sources du même auteur

FORCER LES MAJUSCULES DANS UNE TEXTBOX

EMPECHER LA SAISIE DANS UNE TEXTBOX

LIRE LE NUMERO DE SÉRIE D'UN DISQUE

Toutes les sources de pepito

Sources de la même categorie

XGBLENDERCOMPRESSOR par XelectroX

CONTRÔLER L'AUTORUN DE WINDOWS XP (ET SUPÉRIEUR) ET LES NOTI... par ShareVB

LECTURE ET MODIFICATION DES PROPRIÉTÉS DES FICHIERS OFFICE E... par ShareVB

QEMUGUI - LANCEUR DE QEMU par ghuysmans99

JARSTAR, EMULATEUR JEUX JAVA MOBILE POUR PC par Duke49

Toutes les sources de la catégorie Shell

Sources en rapport avec celle ci

GESTION DE DONNÉES AVEC ACCESS par fradimed

VACHE TAUREAU /CHIHAOUI_MED@HOTMAIL.COM/ par 2mohamed2

MES TEST ET MES RECHERCHES SUR WMI, PROCESSUS ET INTERNET par l0r3nz1

CHIFFRE EN LETTRE FONCTION par ElDoktor

NOMBRE D'ARGUMENT(S) VARIABLE par zappy

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

HELP : passage de parametres a un EXE [ par antho ] Je recherche comment passer des paramètres à un executable VB. J'ai essayer d'ajouter des paramètres à une Sub Main mais ça marche pas. Quelqu'un peut passage de parametres(du moins je crois;lisez le mail et vous comprendrez) [ par atilata ] excusez moi de vous deranger je voudrais savoir comment faire pour qu un truc se dessine à l endroit que je lui ai spécifié.En plus clair si je tape 5 Passage d'arguments à une fenêtre [ par joul ] Bonjour,Est il possible de passer des variables à une feuille ou d'initialiser les variables de cette feuille, plutôt que de passer par des variablees passage de parametres dans Excel [ par samousse ] Salut,je trouve pas comment passer un parametre dans le VB de excel entre le workbook et une feuille.EX je veut passer la valeure de "I":dans le workb Passage de parametres entre pages ! [ par berzerk300 ] Bjr a tous je suis nouveau sur ce site et comme developpeur .Net et je voudrais savoir comment passe t on des parametres entre une page aspx principal Passage de variable dans un shell [ par RouX ] Je voudrais ouvrir une feuille Excel en lui donnant un nom.J'ai fait :shell ("C:\...\excel.exe toto.xls)toto.xls n'existe pas et je veux le créer. Exc Passage de parametres [ par novik ] Comment passer un tableau de byte a une fonction encapsulle dans un ActiveX DLL passage de parametres [ par vbmike ] « J'ai créé un programme en VB auquel je dois passer un parametre, le nom d'un fichier par exemple.("momprog.exe monfichier.txt")Comment dans mon prog Passage de parametre a 1 exe [ par faridh17 ] J'aimerais passer des parametres a une commande DOS...jusqu'ici jy arrive mais mon pb c'est ke la commande c SU.EXE et j'ai un paramatres a mettre ava Passage d'arguments vers une classe [ par TomTom27 ] je veux passer un ctrl winsock ... mais ca ne fonctionne pasDim Adresse_IP As StringDim Num_Port As StringDim Objet_Win As New WinsockPublic Pro