Öppna med...

[Artem Los]

Är det någon som vet hur man kan göra ett program som känner av om man öppnar det med ett annat program? Exempel: jag har gjort en txt fil, sen så höger klickar jag på öppna med och väljer mitt program. Då så ser man texten

som stog i txt filen i en richtextboxen.

 

Tack i förhand!

 

MVH

Artem

 

[inlägget ändrat 2009-07-29 23:53:30 av Artem Los]

[bild bifogad 2009-07-30 11:16:19 av Artem Los]

[Monshi]

Vad?

 

gör ett nytt försök att förklara vad du vill för, ärligt, jag fatta nada.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

 

[Artem Los]

Alltså att att man ska kunna höger klicka på en txt fil och öppna den med sitt program som man har gjort. Då när man klickar på txt filen så öppnas den med det programmet man har gjort och så ser man texten som var i txt filen i programmet.

 

 

 

[bild bifogad 2009-07-30 11:23:55 av Artem Los]

[Monshi]

Du vill kunna öppna en textfil du har på datorn med ditt program. Du vill då att programmet ska ta den filen som inargument och läsa in den och visa denna i en textbox?

 

http://www.vbexplorer.com/VBExplorer/vb_feature/august2000/command_line_arguments.asp

http://www.devx.com/getHelpOn/10MinuteSolution/20366

 

torde hjälpa dig på vägen om jag nu tolkat det du önskar korrekt

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

[Artem Los]

Kälkoden som var på: http://www.devx.com/getHelpOn/10MinuteSolution/20366 funka ganska bra. Men det finns en nackdel. Kan tyvärr inte förklara felet. Kan någon rätta koden så att den funkar!

 

Tack andå för all hjälp jag fick!

 

MVH

Artem Los

 

Sub Main()
       Dim a_strArgs() As String
       Dim blnDebug As Boolean
       Dim strFilename As String
       Dim file As String
       Dim i As Integer

       a_strArgs = Split(Command$, " ")
       For i = LBound(a_strArgs) To UBound(a_strArgs)
           Select Case LCase(a_strArgs(i))
               Case "-d", "/d"
                   ' debug mode
                   blnDebug = True
               Case "-f", "/f"
                   ' filename specified
                   If i = UBound(a_strArgs) Then
                       MsgBox("Filename not specified.")
                   Else
                       i = i + 1
                   End If
                   If Left(a_strArgs(i), 1) = "-" Or Left(a_strArgs(i), 1) = "/" Then
                       MsgBox("Invalid filename.")
                   Else
                       strFilename = a_strArgs(i)
                   End If
               Case Else
                   file = file + (a_strArgs(i))
           End Select


       Next i



       MsgBox(file)
       Dim öppna_filen As New System.IO.StreamReader(file)
       MsgBox(öppna_filen)
       öppna_filen.Close()
   End Sub

 

[inlägget ändrat 2009-07-30 22:06:16 av Artem Los]

[inlägget ändrat 2009-07-30 23:48:53 av Artem Los]