Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: *.PRC
Toppi
Datum:18.08.02 19:05 Antwortenals Email verschicken  


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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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
Shortwin - denn Glück ist kein Zufall!