| |
| |
|
funkheld | Hello, I empfange now Data from the Clipboard.
The data stand Yes there as Text.
with:
Text$=getclip$()
have I the Text$ and Len undergo I The length.
now would like I the Text$ in a Memory-Variable settle circa a number auszuwerten. The String is really a Bytefolge and can't with "String" be read, because too in the middle drin a "0" stand can.
question:
How do I get whom Text$ into Memory-Variable to that evaluate?
I compiliere with XPSE.
Thank you.
greeting |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Char processing too Nullbytes. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 05/10/12 ▲ |
|
| |
|
|
 | very, here helps The procedure char or use The rtlMoveMemory function.
XPSE-Kurzschreibweise:
or:
var s$="Mein Stringinhalt"
declare memory#
dim memory#,len(s$)
char memory#,0=s$
//now is in the Memory-Variable "speicher" the Stringinhalt
dispose memory#
|
|
| |
| |
| |
|
|
funkheld | Yes, thanks for Proposals.
greeting |
|
| |
| |
| |
|
|
funkheld | Jup, I can now The Data from the Clipboard receive and spend.
If now this "if wert&=1" erfüllt is what about me The data ausgeprintet have, would like I joining 5 Zählwerte go on in the While-Loop. How are the?
Thank you.
{$cleq}
declare ende&,Text$,area#,z&,laenge&,wert&
dim area#,128
ende&=1
Window 20,20-600,500
While Ende&
sleep 5
Text$=getclip$()
clearclip
laenge&=len(text $)
if laenge& > 5
char area#,0=Text$
whileloop laenge&
wert&=@byte(area#,&loop)
if wert&=1
print "tacho: ";
print double(long(area #+&loop+1,0))
endif
if wert&=2
print "bremse: ";
print "bremse "+double(long(area #+&loop+1,0))
endif
endwhile
endif
EndWhile
End
|
|
| |
| |
| |
|
|
| Machste simply a Own Zählschleife z.B.:
or xpseischer:
|
|
| |
| |
| |
|
|
funkheld | Jup, thanks. the functions.
I thought one can The Variable & Loop during the Ablaufes Change.
Why becomes to 10 durchläufen the word "ende" not geprintet?
|
|
| |
| |
| |
|
|
Wilfried
Friebe | Hi
I have time a little bit changed though without XPSE
Greeting Wilfried |
|
| |
| Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 05/12/12 ▲ |
|
| |
|
|
Jörg
Sellmeyer |
Why becomes to 10 durchläufen the word "ende" not geprintet?
because You from this Loop not herauskommst:
with Continue spring You over ands over again on whom Schleifenanfang. Break breaks The Loop. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 05/12/12 ▲ |
|
| |
|
|
funkheld | Jup, thanks for different Solutions.
greeting |
|
| |
| |
| |
|
|
| Hi!
If itself from your visibility one your Topics "erledigt" has,
then the Topic simply as "erledigt" Mark.
then Better get going z.B. too with "Aktuelle Themen" ( [...]  ) as Done displayed.
For this simply under with whom "Themenoptionen" on "erledigt" clicking.
likewise can You Posts as "Lösung" Mark. the against goes if one
with the mouse over the "Mehr"-Button drives (eachone Posting has such Button under right)
and the option "Als Solution deklarieren" confirm. |
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia