Ouvrir avec...Résolu

Question

Bonjour

Comme j'ai fait un petit éditeur(de texte pour être précis), j'aimerais que quand j'ouvre un fichier avec mon programme, que il s'ouvre. Si je le fais, mon programma s'ouvre et il ne se passe rien. Qu'est-ce que je dois faire?

Merci,
VBGuigui :)

crenaud76 · Accepted Answer

Parce qu'au démarrage de ton programme tu ne vas pas voir ce que te retourne l'instruction "Command". Celle*-ci te renvois la partie argument de la ligne de commande, et donc contiendra le nom du fichier que tu dois ouvrir.
Donc dan sun Form_Load ou un Main(), tu fais un truc du genre 

 Nomfic = Command
' Execute le code destiné au chargement d'un fichier dans ton editeur
...

C'est tout !!

Christophe R.

vbguigui · Answer

Ca marche. Le seul problème c'est que il y a des "" . Comment les enlever?

Merci
Vbguigui

vbguigui · Answer

Ah non.
C'est bon; j'ai trouvé:

Public Function RemoveChar(strString As String, strCharacter As String) As String
    Dim intPosition As Integer
    intPosition = 1
    
    While intPosition < Len(strString) And InStr(intPosition, strString, strCharacter) <> 0
        RemoveChar = RemoveChar & Mid(strString, intPosition, _
                                            InStr(InStr(intPosition, strString, strCharacter), strString, strCharacter) - intPosition)
        intPosition = InStr(intPosition, strString, strCharacter) + 1
    Wend
    
    RemoveChar = RemoveChar & Right(strString, Len(strString) - intPosition + 1)
End Function 

Vbguigui

zeunz · Answer

plus simple:

dim Zob as string
dim Mot as string
dim i as integer

zob=Command

'Pour enlever les "  :
for i=2  to len(zob)-1
     mot=mot & mid(zob,i,1)
next i

Ouvrir avec...

4 réponses

Discussions similaires