Einsteigerfragen zur PROFAN Programmierung

| Suchen
| Zurück zur Übersicht

Autor | Thema: *.PRC
Toppi
| Datum:18.08.02 19:05 |
hi leute, habe ein problemm habe v5.0-32bit und kann keine prc-dateien öffnen! Shell,@WinExecWait usw hats irgendwie auch nicht gefunztwer kan mir helfen?? oder was mach ich falsch?? meine idee war ein massage fenster sollte sich öffnen und in dem fenster sollte eine text datei geladen werden und unten drunter ein "schließen button" könnte mir einer mal ein script davon posten?? wäre echt stark!! mfg Toppi
Jörg Sellmeyer
| Datum:18.08.02 20:17 (joerse@gmx.de) |
Hallo, Ich habe zwar keine Ahnung was ein massage-Fenster sein soll, aber für das was Du machen willst mußt Du keine Prc-Datei öffnen sondern nur die Profanhilfe lesen;-) Und bitte in Zukunft Namen und E-mailadresse mit angeben. Stichwort Multiedit Cls DECLARE Edit%,Bereich# LET Edit% = @CreateMultiEdit(%HWnd,"",10,10,200,200) DIM Bereich#,@FileSize("C:\PROFAN40\LIESMICH.TXT")+2 @ReadText Bereich#,"C:\PROFAN40\LIESMICH.TXT" @SendMessage(Edit%,$000C,0,Bereich#) WaitInput End Gruß Jörg
Torsten Klein
| Datum:18.08.02 20:49 (Toppixxxx@web.de) |
das meinte ich´genau richtig ,aber mein prob das ich in zeile immer einen fehler bekomme : Zeile 5 in C:\PROFAN40\LIESMICH.prf:@ReadText Bereich#,"C:\PROFAN40\LIESMICH.TXT" habe extra sogar diesen orndner angelegt und gross-klein schreibung beachtet!! in der ersten zeile zeigt er immer .prf an ??? solte doch die .txt sein?? so sieht das bei mir aus : Cls DECLARE Edit%,Bereich# LET Edit% = @CreateMultiEdit(%HWnd,"",10,10,200,200) DIM Bereich#,@FileSize("C:\PROFAN40\LIESMICH.TXT")+2 @ReadText Bereich#,"C:\PROFAN40\LIESMICH.TXT" @SendMessage(Edit%,$000C,0,Bereich#) WaitInput End was ist falsch?? und sorry wegen e-mail und namen, wusste ich nicht mfg Toppi
Jörg Sellmeyer
| Datum:18.08.02 22:29 (joerse@gmx.de) |
Hallo Thorsten, Das : C:\PROFAN40\LIESMICH.prf dürfte der Name der Datei sein in die Du Deinen Code schreibst. Da ich Profan 7.5 habe weiß ich nicht mehr genau welche Befehle in 5.0 schon drin sind. Wenn Readtext in Deiner Hilfe erwähnt ist, sollte es eigentlich funktionieren. Schau nochmal ob die Datei C:\PROFAN40\LIESMICH.TXT wirklich vorhanden ist. ...habe gerade den Fehler gefunden: nicht @ReadText sondern nur ReadText. Das ist ein Befehl und keine Funktion, deshalb kein @-Zeichen. Gruß Jörg
Torsten Klein
| Datum:18.08.02 23:51 (Toppixxx@web.de) |
prima klappt danke dir für deine schnelle hilfe!!!! habe aber leider dazu noch eine frage und zwar wenn ich eine *.txt datei erstelle und nur hallo rein schreibe und diese dann laden will bekomme ich die meldung das: Der Text paßt nicht komplett in die Bereichsvariable! Teile 5: ReadText Bereich#,"C:\PROFAN50\Liesmich1.TXT" woran kann das liegen und was muss ich machen?? so siehter mom aus: Cls DECLARE Edit%,Bereich# LET Edit% = @CreateMultiEdit(%HWnd,"",5,5,620,446) DIM Bereich#,@FileSize("C:\PROFAN50\Liesmich1.TXT")+2 ReadText Bereich#,"C:\PROFAN50\Liesmich1.TXT" @SendMessage(Edit%,$000C,0,Bereich#) WaitInput End mfg Toppi
Jörg Sellmeyer
| Datum:19.08.02 12:40 (joerse@gmx.de) |
hm... bei mir funktioniert es mit Pfadanpassung. Bau doch mal folgendes ein: declare size& print findfirst$(("C:\PROFAN50\Liesmich1.TXT") print %ioresult'hier kannst Du feststellen ob Deine Datei vorhanden ist size&=#,@FileSize("C:\PROFAN50\Liesmich1.TXT") + 2'besser mit Leerzeichen um den Operanden print size&'so kannst Du sehen ob die Größe auch ermittelt wird Dim Berich#,size& Gruß Jörg
Torsten Klein
| Datum: 19.08.02 14:13 (Toppixxxx@web.de) |
habe das problemm gefunden!! die lösung sieht so aus: DECLARE Edit%,Bereich# LET Edit% = @CreateMultiEdit(%HWnd,"",5,5,620,425) DIM Bereich#,@Add(@FileSize("C:\PROFAN50\Liesmich1.TXT")+2) ReadText Bereich#,"C:\PROFAN50\Liesmich1.TXT" @SendMessage(Edit%,$000C,0,Bereich#) WaitInput End lag an :DIM Bereich#,@Add(@FileSize("C:\PROFAN50\Liesmich1.TXT")+2) mfg Toppi danke Jörg Sellmeyer

| Zurück zur Übersicht

| Ein kostenloses WebMart Forum WebMart Homepage Tools kostenlos |