åbner ex. TXT filer med mit eget program ??

Hej.

Er det rigtigt opfattet, at det du ønsker er at filer med ekstension .txt skal associeres til dit program, således at at klik i stifinder eller andre filhåndterings-programmer udløser at txt-filen indlæses.

Men hvordan, linie for linie eller i en kæmpeboks som en helhed?  En txt-fil kan jo godt være stor og indeholde mange hårde linieskift - VBCRLF.

M.v.h.  Jørn

indlæses me dmit program ja helt rigtigt :D

den åbner det ligesom UltraEdit fik ikke lige fat i hvad du mente - den skal åbne den lige som UltraEdit (see: www.ultraedit.com)

Hej.

Med skam at melde, så ved jeg det ikke, - ikke det med at programmet opfanger et klik fra Stifinder.  Men jeg har fundet et projekt
http://www.vbcode.com/code/TEXTPAD11222002.ZIP

Jeg kan bare ikke selv åbne det med min VB5.

Der benyttes FileSystemObject:

Private Sub open_Click()
Dim Filetext As String
Dim Filefilter As String
Dim Filenumber As Integer
Filefilter = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*"
cd.Filter = Filefilter
cd.ShowOpen
Filename = cd.Filename
Set ts = fso.OpenTextFile(Filename)
Do While ts.AtEndOfStream <> True
Filetext = Filetext & ts.Read(1)
If Len(Filetext) > 36000 Then
MsgBox "The File is too large to open" & vbCrLf & "To Fully View it open it with Wordpad", vbInformation, "Error"
Exit Do
End If
Loop
Text1.Text = Filetext
ts.Close
Form1.Caption = "Text Pad  " & Filename
End Sub 

Måske kommer nogen på banen, der har prøvet dette selv.

M.v.h.  Jørn

thanx jeg kigger på det i morgen

Jeg tror det er "Command$" du leder efter, prøv:

Private Sub Form_Load()
Dim intFree As Integer
Dim strPath As String
Dim strTekst As String

'Henter den stig som er skrævet efter exe-filen
'eks: C:\Project1.exe "C:\autoexec.bat"
'Command$ er = "C:\autoexec.bat"
strPath = Command$
 
  'Tjækker om der er " i bægge ænder
  If Right(strPath, 1) = Chr$(34) And Left(strPath, 1) = Chr$(34) Then
    'Fjærner " i bægge ænder
    strPath = Mid$(strPath, 2, Len(strPath) - 2)
  End If
  'Tjækker om filen ligger på denne stig
  If Dir(strPath) > "" Then
    'Finder free file nummer
    intFree = FreeFile
    'Åbner filen
    Open strPath For Binary As #intFree
      'laver filens lengten i space til strTekst
      strTekst = Space(LOF(intFree))
      'Henter den data som står i filen
      Get #intFree, 1, strTekst
      'Lukker filen
    Close #intFree
  End If
'Text1 kan kun indholde 61000 tegn, så derfor brug Mid$
Text1.Text = Mid$(strTekst, 1, 61000)
End Sub

hvis nu det er MDI forms... skal det så står  dokument formen eller i MDIParaent formen ??

og det er ikke en textbox men en CodeMax control ??

ja CodeMax mener jeg selv kan loade en fil, CodeMax.LoadFile eller sådan noget.

<CodeMax.LoadFile Command$>

hmm
prøv at skriv hvad jeg skal skrive hvor !! et eksempel altså !! plzz :D

nej det var CodeMax1.OpenFile og ikke CodeMax.LoadFile :)

Private Sub Form_Load()
Dim strPath As String
strPath = Command$
  If Right(strPath, 1) = Chr$(34) And Left(strPath, 1) = Chr$(34) Then
    strPath = Mid$(strPath, 2, Len(strPath) - 2)
  End If
  If Dir(strPath) > "" And Len(strPath) > 0 Then
    CodeMax1.OpenFile strPath
      Else
    CodeMax1.Text = "Test tekst"
  End If
End Sub

der sker intet

prøv på en ny form1

hvad så hvis den skal åbne en ny MDI form... hvad gør jeg hvis det er mdi forms ?? :S

ok jeg har fået det til at virke !!

men hvad så hvis jeg allerede har en kopi af mit program åben ?? hvad gør jeg for at den ikke åbner en ny ?? (sidste spørgsmål :D hehe)

Ja det er ikke sådan lige at lave hvis du også skal overfør Command$ kender du til API?

nej ikke så meget !! kan du ikke finde et eksempel på: www.pscode.com fx. ??

søg på "PrevInstance"

eksempel:
http://vbaccelerator.nuwebhost.com/codelib/ssubtmr/startup.htm
DLL til eksempel:
http://vbaccelerator.nuwebhost.com/codelib/ssubtmr/ssubtmr.htm

undskyld men hvad så hvis den skal kunne håndtere at hvis jeg dobbelt klikker på to filer i stifinderen åbner den begge dokumenter ??!??? how to ?

(sidste spørgsmål :D hehe)

nej nej.. at den åbner begge dokumenter i SAMME version har programmet !! :D

fx. Form_Load den checker om programemt allerede kører If / Else funktion.... If yes dont start program... Else If / Else med Command$

sidste svare så må du lave resten selv :)

Private Sub Form_Load()
Dim arrCMD As Variant
Dim i As Integer
arrCMD = Split(Command$, " ")
  For i = 1 To UBound(arrCMD)
    List1.AddItem CStr(arrCMD(i))
  Next i
End Sub

jeg prøver de ti morgen.. kan godt forstå du ik vil hjælpe mere men du kan tro jeg har været glad for den hjælp du har givet mig !!

ja som sagt jeg prøver det i morgen !! :D

jeg fatter bare ikke helt hvad du bruger en Lsitbox til her ?? :)

det er kun for at vise hvad der sker, da det kun virker når du har lavet det til exe-file  :))

hmm..jeg prøver ad

jeg synes ikke jeg kan være bekændt at tage nogle af point'ene igen og jeg har heller ikke svar på alt men fuck nu det :D - tak for hjælpen

selv tak :)

håber at du for det til at virke som du vil have det :)