Prob mit pfad finden und spiechern

Übersicht

BlitzBasic

Allgemein

	dominik Betreff: Prob mit pfad finden und spiechern	Sa, Jun 26, 2004 11:54 Antworten mit Zitat
Dieser teil sollte eigentlich nur prfüfen ob schon ne datei mit Pfad vorhanden ist un wenn nicht den benutzer auffordern einen anzugeben. leider bekomm ich aber hier "pfad$ = WriteLine$(pfl)" nen fehler : "incorrect function return type" Code: [AUSKLAPPEN] [EINKLAPPEN] ;Pfad angeben pfadd = FileType ("pfad.list") If pfadd = 0 Then HideGadget einlogfenster Repeat pfad$ = RequestDir$("Pfad auswählen") Until pfad$ > 0 pfl = WriteFile("pfad.list") pfad$ = WriteLine$(pfl) ShowGadget einlogfenster Else pfl = ReadFile("pfad.list") pfad$ = ReadLine$(pfl) EndIf CloseFile pfl

dominik

Betreff: Prob mit pfad finden und spiechern

Sa, Jun 26, 2004 11:54
Antworten mit Zitat

Dieser teil sollte eigentlich nur prfüfen ob schon ne datei mit Pfad vorhanden ist un wenn nicht den benutzer auffordern einen anzugeben. leider bekomm ich aber hier "pfad$ = WriteLine$(pfl)" nen fehler : "incorrect function return type"

Code: [AUSKLAPPEN]

;Pfad angeben
pfadd = FileType ("pfad.list")
If pfadd = 0 Then
HideGadget einlogfenster
Repeat
pfad$ = RequestDir$("Pfad auswählen")
Until pfad$ > 0
pfl = WriteFile("pfad.list")
pfad$ = WriteLine$(pfl)
ShowGadget einlogfenster
Else
pfl = ReadFile("pfad.list")
pfad$ = ReadLine$(pfl)
EndIf
CloseFile pfl

	IonPainter	Sa, Jun 26, 2004 13:09 Antworten mit Zitat
parameter von writeline anschauen... onlinehilfe...

IonPainter

Sa, Jun 26, 2004 13:09
Antworten mit Zitat

parameter von writeline anschauen... onlinehilfe...

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Jun 26, 2004 13:13 Antworten mit Zitat
hallo, writeline geht nicht so wie readline Code: [AUSKLAPPEN] [EINKLAPPEN] String= readline(Datei) und Writeline Datei,String Beispiel Code: Code: [AUSKLAPPEN] [EINKLAPPEN] ;Pfad angeben Datei = OpenFile ("pfad.list") If Datei = 0 Then ; DATEI EXITIERT NICHT Datei = WriteFile ("pfad.list") ; NEUE ERSTELLEN If datei = 0 Then ; prüfen RuntimeError ("Das Programm kann nicht auf den Datenträger zugreifen!") EndIf HideGadget einlogfenster Repeat ; Pfad wählen pfad$ = RequestDir$("Pfad auswählen") Until pfad$ <> "" WriteLine Datei ,pfad$ ShowGadget einlogfenster Else pfad$ = ReadLine$(Datei) EndIf CloseFile Datei
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Jun 26, 2004 13:13
Antworten mit Zitat

hallo,
writeline geht nicht so wie readline
Code: [AUSKLAPPEN]

String= readline(Datei)
und
Writeline Datei,String

Beispiel Code:
Code: [AUSKLAPPEN]

;Pfad angeben
Datei = OpenFile ("pfad.list")
If Datei = 0 Then ; DATEI EXITIERT NICHT
   Datei = WriteFile ("pfad.list") ; NEUE ERSTELLEN
   If datei = 0 Then ; prüfen
      RuntimeError ("Das Programm kann nicht auf den Datenträger zugreifen!")
   EndIf

      HideGadget einlogfenster

      Repeat ; Pfad wählen
         pfad$ = RequestDir$("Pfad auswählen")
      Until pfad$ <> ""

   WriteLine Datei ,pfad$

   ShowGadget einlogfenster

Else
   pfad$ = ReadLine$(Datei)

EndIf
CloseFile Datei

[BB2D | BB3D | BB+]

	dominik	Sa, Jun 26, 2004 15:07 Antworten mit Zitat
oh ja stimmt ich hock schon so lang vor dem code das ich schon garnicht mehr auf so einfache scheiß fehler kommen.

dominik

Sa, Jun 26, 2004 15:07
Antworten mit Zitat

oh ja stimmt Embarassed

ich hock schon so lang vor dem code das ich schon garnicht mehr auf so einfache scheiß fehler kommen.

	dominik	Sa, Jun 26, 2004 16:39 Antworten mit Zitat
hab hier noch so nen prob is warscheinlich genauso einfach: Code: [AUSKLAPPEN] [EINKLAPPEN] Function dateineintaegeher() dateineintraege = 0 verz=ReadDir(pfad$ + "\" + tefebeko$) Repeat Datei$ = NextFile$(Verz) dateineintraege = dateineintraege + 1 Until datei$ = "" CloseDir Verz Return dateineintraege End Function ich bekomm da immer so nen fenster von wegen "blitzcc.exe hat einen fehler festgestellt und musste beendet werde" mit dem man dann auch nen fehelerbericht an ms schicken kann.

dominik

Sa, Jun 26, 2004 16:39
Antworten mit Zitat

hab hier noch so nen prob is warscheinlich genauso einfach:

Code: [AUSKLAPPEN]

Function dateineintaegeher()
dateineintraege = 0
verz=ReadDir(pfad$ + "\" + tefebeko$)
Repeat
Datei$ = NextFile$(Verz)
dateineintraege = dateineintraege + 1
Until datei$ = ""
CloseDir Verz
Return dateineintraege
End Function

ich bekomm da immer so nen fenster von wegen "blitzcc.exe hat einen fehler festgestellt und musste beendet werde" mit dem man dann auch nen fehelerbericht an ms schicken kann.

	Mr.Keks	Sa, Jun 26, 2004 16:55 Antworten mit Zitat
hört sich mehr nach einem fehler von bb an ^^. sowas verschwindet normalerweise nach dem neustart von bb wieder. ansonsten würde ich nochCode: [AUSKLAPPEN] [EINKLAPPEN] Datei$ = NextFile$(Verz) dateineintraege = dateineintraege + 1 vertauschen
MrKeks.net

Mr.Keks

Sa, Jun 26, 2004 16:55
Antworten mit Zitat

hört sich mehr nach einem fehler von bb an ^^. sowas verschwindet normalerweise nach dem neustart von bb wieder.

ansonsten würde ich nochCode: [AUSKLAPPEN]

Datei$ = NextFile$(Verz)
dateineintraege = dateineintraege + 1

vertauschen

MrKeks.net

	dominik	Sa, Jun 26, 2004 16:57 Antworten mit Zitat
ne eher neuinst. neustart bringt nix.

dominik

Sa, Jun 26, 2004 16:57
Antworten mit Zitat

ne eher neuinst. neustart bringt nix.

	Edlothiol	Sa, Jun 26, 2004 17:22 Antworten mit Zitat
Mach mal den Debugmodus an. Bei BlitzPlus gibts glaube ich öfter solche Fehlermeldungen bei Fehlern im Programm (statt Memory Access Violation)

Edlothiol

Sa, Jun 26, 2004 17:22
Antworten mit Zitat

Mach mal den Debugmodus an. Bei BlitzPlus gibts glaube ich öfter solche Fehlermeldungen bei Fehlern im Programm (statt Memory Access Violation)

	dominik	Sa, Jun 26, 2004 17:24 Antworten mit Zitat
hab ich standartmäßig immer an

dominik

Sa, Jun 26, 2004 17:24
Antworten mit Zitat

hab ich standartmäßig immer an

	YellowRider Ehemaliger Admin	Sa, Jun 26, 2004 17:25 Antworten mit Zitat
Vielleicht / anstatt \ ?

YellowRider

Ehemaliger Admin

Sa, Jun 26, 2004 17:25
Antworten mit Zitat

Vielleicht / anstatt \ ?

	dominik	Sa, Jun 26, 2004 17:36 Antworten mit Zitat
nee hat damit nix zu tun aber vll liegts an nem code teil, nicht unbeding hier aber hier srürtzts grundsätzlich immer ab. Code: [AUSKLAPPEN] [EINKLAPPEN] Function benutzerfinden() ClearGadgetItems belist verz = ReadDir(pfad$) Repeat Datei$ = NextFile$(Verz) If FileType(verz_name$+datei$) = 2 Then AddGadgetItem belist, datei$ ; If FileType(Datei$) = 2 Then AddGadgetItem belist, datei$ Until datei$ = "" CloseDir verz End Function

dominik

Sa, Jun 26, 2004 17:36
Antworten mit Zitat

nee hat damit nix zu tun aber vll liegts an nem code teil, nicht unbeding hier aber hier srürtzts grundsätzlich immer ab.

Code: [AUSKLAPPEN]

Function benutzerfinden()
ClearGadgetItems belist
verz = ReadDir(pfad$)
Repeat
Datei$ = NextFile$(Verz)
If FileType(verz_name$+datei$) = 2 Then AddGadgetItem belist, datei$
; If FileType(Datei$) = 2 Then AddGadgetItem belist, datei$
Until datei$ = ""
CloseDir verz
End Function

	Mr.Keks	Sa, Jun 26, 2004 18:53 Antworten mit Zitat
pfad$ und verz_name$, wo werden die definiert? sind das alles globale?
MrKeks.net

Mr.Keks

Sa, Jun 26, 2004 18:53
Antworten mit Zitat

pfad$ und verz_name$, wo werden die definiert? sind das alles globale?

MrKeks.net

	dominik	Sa, Jun 26, 2004 20:09 Antworten mit Zitat
ja sind es. das prob hab ich aber in der zwischenzeit schon gelöst trotzdem danke. aber durch deinen hinweis hab ich auch geilch noch mein anderes prob lösen können. es lang nich am code.

dominik

Sa, Jun 26, 2004 20:09
Antworten mit Zitat

ja sind es. das prob hab ich aber in der zwischenzeit schon gelöst trotzdem danke.
aber durch deinen hinweis hab ich auch geilch noch mein anderes prob lösen können. Very Happy

es lang nich am code.

	dominik	Sa, Jun 26, 2004 22:22 Antworten mit Zitat
so probleme hab ich ja genung hier noch eins: Code: [AUSKLAPPEN] [EINKLAPPEN] selected = SelectedGadgetItem(belist) If selected >= 0 Then For i = 0 To dateineintraege If ??????? (i) = selected Then RemoveGadgetItem belist,i DeleteFile selected EndIf Next EndIf End Function was muss ich für die ? einsetzen?

dominik

Sa, Jun 26, 2004 22:22
Antworten mit Zitat

so probleme hab ich ja genung hier noch eins: Sad

Code: [AUSKLAPPEN]

selected = SelectedGadgetItem(belist)
If selected >= 0 Then
For i = 0 To dateineintraege
If ??????? (i) = selected Then
RemoveGadgetItem belist,i
DeleteFile selected
EndIf
Next
EndIf
End Function

was muss ich für die ? einsetzen?

	Mr.Keks	So, Jun 27, 2004 8:06 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] selected = SelectedGadgetItem(belist) If selected >= 0 Then RemoveGadgetItem belist,selected EndIf End Function würde ich jetzt einfach mal so sagen...
MrKeks.net

Mr.Keks

So, Jun 27, 2004 8:06
Antworten mit Zitat

Code: [AUSKLAPPEN]

selected = SelectedGadgetItem(belist)
If selected >= 0 Then
RemoveGadgetItem belist,selected
EndIf
End Function

würde ich jetzt einfach mal so sagen...

MrKeks.net

	dominik	So, Jun 27, 2004 10:54 Antworten mit Zitat
ja des is scho klar aber in der lieste stehen namen von ordner die ich auch löschen will. deshalb brauch ich die NR zuden namen.

dominik

So, Jun 27, 2004 10:54
Antworten mit Zitat

ja des is scho klar aber in der lieste stehen namen von ordner die ich auch löschen will. deshalb brauch ich die NR zuden namen.

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, Jun 27, 2004 11:17 Antworten mit Zitat
wie hast du denn die ordner gespeichert? im Typs denk ich mal...oder? Hier mal so ein Beispiel aus meinem 1. Programm: Code: [AUSKLAPPEN] [EINKLAPPEN] Bild_einstellen_und_malen(SelectedGadgetItem (Bilder_liste)) Code: [AUSKLAPPEN] [EINKLAPPEN] Function Bild_einstellen_und_malen(Bild_Nr) Bild_Nr = Bild_Nr +1 ; da der 1. eintrag in der listbox die 0 ist ;zum markierten Bild springen Datei.Daten = First Daten : NR = 1 ; 1.bild While NR <> Bild_Nr ; solange wiederholen bis der Eintrag erreicht ist Datei.Daten = After (Datei) :NR = NR + 1 If debug Then If Datei.Daten = Null Then Stop Wend Bild_Malen(Datei\Wo + Datei\Name) End Function die Daten in der listbox sind alle imn Types gespeichert, da es mit Arrays sehr schwirig ist zu lösen , weil man da nicht so einfach einen Eintrag zwischen löschen kann!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, Jun 27, 2004 11:17
Antworten mit Zitat

wie hast du denn die ordner gespeichert?
im Typs denk ich mal...oder?

Hier mal so ein Beispiel aus meinem 1. Programm:

Code: [AUSKLAPPEN]

Bild_einstellen_und_malen(SelectedGadgetItem (Bilder_liste))

Code: [AUSKLAPPEN]

Function Bild_einstellen_und_malen(Bild_Nr)
Bild_Nr = Bild_Nr +1 ; da der 1. eintrag in der listbox die 0 ist
;zum markierten Bild springen
Datei.Daten = First Daten : NR = 1 ; 1.bild
While NR <> Bild_Nr ; solange wiederholen bis der Eintrag erreicht ist
Datei.Daten = After (Datei) :NR = NR + 1
If debug Then If Datei.Daten = Null Then Stop
Wend
Bild_Malen(Datei\Wo + Datei\Name)
End Function

die Daten in der listbox sind alle imn Types gespeichert, da es mit Arrays sehr schwirig ist zu lösen , weil man da nicht so einfach einen Eintrag zwischen löschen kann!

[BB2D | BB3D | BB+]

	dominik	So, Jun 27, 2004 11:53 Antworten mit Zitat
ne ich hab die garnicht gespeichert sondern einfach nur in die liste eingelsen. gehts so net?

dominik

So, Jun 27, 2004 11:53
Antworten mit Zitat

ne ich hab die garnicht gespeichert sondern einfach nur in die liste eingelsen. gehts so net?

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, Jun 27, 2004 13:18 Antworten mit Zitat
Wenn der Pfad vollständig im Textfeld steht kannste das auch so machen Code: [AUSKLAPPEN] [EINKLAPPEN] selected = SelectedGadgetItem(belist) If selected >= 0 Then Selected_Dir$ = GadgetItemText (belist,selected) If FileType (Selected_Text$) = 2 Then DeleteDir Selected_Dir$ RemoveGadgetItem belist,selected EndIf Habe das aber nicht getestet
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, Jun 27, 2004 13:18
Antworten mit Zitat

Wenn der Pfad vollständig im Textfeld steht kannste das auch so machen
Code: [AUSKLAPPEN]

selected = SelectedGadgetItem(belist)
If selected >= 0 Then
   Selected_Dir$ = GadgetItemText (belist,selected)
   If FileType (Selected_Text$) = 2 Then DeleteDir Selected_Dir$
   RemoveGadgetItem belist,selected
EndIf

Habe das aber nicht getestet

[BB2D | BB3D | BB+]

	dominik	So, Jun 27, 2004 13:50 Antworten mit Zitat
perfekt, aber die dateien lassen sich jetzt nimmer löschen. ok is klar sind noch files drinn kannja nich gehen.

dominik

So, Jun 27, 2004 13:50
Antworten mit Zitat

perfekt, aber die dateien lassen sich jetzt nimmer löschen.

ok is klar sind noch files drinn kannja nich gehen.

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Prob mit pfad finden und spiechern

Betreff: Prob mit pfad finden und spiechern