| |
| |
|
Rainer
Trusch | Yo möchte una Textdatei auslesen, el sólo de una String besteht, el allerdings muy lang es. @mid$ y @len$ bearbeiten el String offensichtlich sólo a a Position 32767. Como komme Yo a el Signo, el danach kommen?
 |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Welche Versin hast Usted porque? El komfortabelste Möglichkeit wäre wohl el Upgrade en XProfan10. Weiter kannst Usted el Inhalt en uno Bereichsvariablen bearbeiten.
Mit
KompilierenMarcaSeparaciónChar(B#,StartAdresse&,AnzahlBytes&) > |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.08.2008 ▲ |
|
| |
|
|
 | | XProfanversion de en el Signatur - wurdest antes el Puesto auch darauf hingewiesen. |
|
| |
| |
| |
|
|
Rainer
Trusch | | Yo habe XProfan 10. Der komplette String se en efecto de el Expediente eingelesen y yo kann ihn z.B. con el simplen "print" encima el Bildschirm wuseln dejar. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.08.2008 ▲ |
|
| |
|
|
| Bestimmt ha el Textdatei
s oder as.  |
|
| |
| |
| |
|
|
Rainer
Trusch | Zunächst una vez vielen Dank.
Yo hänge veces una Beispieldatei a. Lo es se en el una Plotdatei. El se ausgelesen y grafisch adecuado voluntad. Bis a o.g. magischen Grenze funzt el auch. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Poste doch simplemente veces el Code, con el Usted el Expediente einliest y luego el String ausliest. Und zwar como lauffähiges Minmalbeispiel. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.08.2008 ▲ |
|
| |
|
|
Rainer
Trusch |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Es zuviel! Mach una neuen Code en el Usted sólo el Expediente einliest y el String otra vez ausgibst. Tal vez hecho se Su Problema entonces ya.
En me funktioniert lo nämlich  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.08.2008 ▲ |
|
| |
|
|
Sebastian
Sprenger | Jörg Sellmeyer
En me funktioniert lo nämlich
Wird el Schrift "Was se porque el werden" (siehe Rainers Anhang 12345.txt) en dir porque a Ende geschrieben?  En No.
Como Yo gerade feststelle, kann XProfan tatsächlich Cuerdas bearbeiten, el länger como 32767 Signo son  - el Befehl Entrada kann lo aber offensichtlich no! Rainer, ersetze veces esta drei Zeilen:
KompilierenMarcaSeparaciónpor esta:
KompilierenMarcaSeparaciónSaludo, 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 | 24.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Yo meinte no, daß Rainers Programa en me funktioniert, pero que seculares en me Cuerdas > 32767 auslesen kann.
Yo weiß sí no genau, qué Usted con el Daten anstellen willst, aber Usted puede wahrscheinlich effektiver con Substr$ el Werte ermitteln:
KompilierenMarcaSeparaciónCls
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.: es de paso muy fresco con el Schrift! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.08.2008 ▲ |
|
| |
|
(1.108)
Deutsch
English
Français
Español
Italia