| |
| |
|
Rainer
Trusch | i want a Textdatei read, The only a String exists, the though very long is. @mid$ and @len$ Edit whom String evident only To to position 32767. How do I get on The characters, The thereafter come?
 |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | which Versin have Thou? The komfortabelste Possibility would well the Upgrade on XProfan10. moreover can You whom Content in a Memory-Variables Edit.
with
CompileMarkSeparationChar(B#,StartAdresse&,AnzahlBytes&) > |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/24/08 ▲ |
|
| |
|
|
 | | XProfanversion ex into Signatur - became to the Post too hereon hingewiesen. |
|
| |
| |
| |
|
|
Rainer
Trusch | | I have XProfan 10. The complete String becomes indeed from the File read what about me can it z.B. with the simple "print" over the screen wuseln let. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/24/08 ▲ |
|
| |
|
|
| certainly has The Textdatei
s or as.  |
|
| |
| |
| |
|
|
Rainer
Trusch | first of all once many Thanks.
I slopes time a Beispieldatei on. it deals itself in the a Plotdatei. The should read and grafisch showing. To to o.g. magic boundary working the too. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Poste still simply time whom code, with the You The File einliest and then whom String ausliest. and of course as lauffähiges Minmalbeispiel. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/24/08 ▲ |
|
| |
|
|
Rainer
Trusch |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | this is too much! Mach a new code in the You only The File einliest and the String again ausgibst. Perhaps Done itself your trouble then already.
by me functions it namely  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/24/08 ▲ |
|
| |
|
|
Sebastian
Sprenger | Jörg Sellmeyer
by me functions it namely
becomes The Font "Was should because the werden" (see Rainers attachment 12345.txt) with you because To end written?  by me not.
How I straight feststelle, can XProfan objectively Strings Edit, The longer as 32767 characters are  - the commands Input can But evident not! Rainer, supplant time these three Lines:
CompileMarkSeparationthrough these:
CompileMarkSeparationGreeting, Sebastian |
|
| |
|  Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32 Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM Windows Me, 1.8 Ghz, 256 MB RAM | 08/24/08 ▲ |
|
| |
|
|
Jörg
Sellmeyer | I meant not, that Rainers Program by me functions, separate that Profan by me Strings > 32767 read can.
i know Yes not very, what You with the data employ want, but You can probably effective with SubStr$ The values detect:
CompileMarkSeparationCls
ChDir "D:Downloads"
Declare B#,bytes&,s1$
Var size& = FileSize("12345.txt")
Dim B#, Size& + 1
Var hdl& = Assign("12345.txt")
OpenRW hdl&
bytes& = @BlockRead(hdl&, B#, 0, size&)
Close hdl&
Assign hdl&,""
Var s$ = Char$(B#,0,bytes&)
Print bytes&,Len(s$)
Print Mid$(s$,32767,100)
Print Len(s$,"PD"),"-mal PD im Text enthalten"
Print Len(s$,"PU"),"-mal PD im Text enthalten"
WaitInput
hdl& = Assign("12345.txt")
Reset hdl&
Clear bytes&
WhileLoop Len(s$,"PU")
s1$ = SubStr$(s$,&Loop,"PU"),&Loop
Print "Gruppe: " + Str$(&Loop)
WhileLoop Len(s1$,";PD")
Print SubStr$(s1$,&Loop,";PD"),&Loop
sleep 100
Case %mousepressed=2:waitinput
Wend
Print "#####################################"
sleep 10
Case %mousepressed=2:waitinput
Wend
WaitInput
P.s.: is incidentally very calm with the Font! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/24/08 ▲ |
|
| |
|
(727)
Deutsch
English
Français
Español
Italia