| |
| |
|
funkheld | allô, je empfange maintenant données aus dem Clipboard.
qui données stehen oui là comme Text.
avec:
text$=getclip$()
habe Je l' text$ et Len erfahre je qui Longueur.
eh bien voudrais Je l' text$ dans un Bereichsvariable mettons um une numéro auszuwerten. qui String ist eigentlich une Bytefolge et peux pas avec "String" lire volonté, weil aussi mitten drin une "0" stehen peux.
Frage:
comment bekomme Je l' text$ dans qui Bereichsvariable zum auswerten?
je compiliere avec XPSE.
merci.
Gruss |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Char verarbeitet aussi Nullbytes. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10.05.2012 ▲ |
|
| |
|
|
 | oui c'est ca, ici hilft qui Procédure char ou bien nutze qui rtlMoveMemory Funktion.
XPSE-Kurzschreibweise:
ou bien:
var s$="Mein Stringinhalt"
declare grenier#
dim grenier#,len($ S)
char grenier#,0=s$
//maintenant ist dans qui Bereichsvariable "speicher" qui Stringinhalt
dispose grenier#
|
|
| |
| |
| |
|
|
funkheld | oui, merci pour qui Propositions.
Gruss |
|
| |
| |
| |
|
|
funkheld | Jup, je peux maintenant qui données aus dem Clipboard empfangen et ausgeben.
si maintenant cet "if wert&=1" erfüllt ist et je qui données ausgeprintet habe, voudrais je anschliessend 5 Zählwerte continuer dans qui Tandis que-Boucle. comment allez cela?
merci.
{$cleq}
declare ende&,text$,bereich#,z&,laenge&,wert&
dim bereich#,128
ende&=1
Fenêtre 20,20-600,500
Tandis que Ende&
sleep 5
text$=getclip$()
clearclip
laenge&=len(text$)
si laenge& > 5
char bereich#,0=text$
whileloop laenge&
wert&=@byte(bereich#,&loop)
si wert&=1
imprimer "tacho: ";
imprimer double(long(bereich#+&loop+1,0))
endif
si wert&=2
imprimer "bremse: ";
imprimer "bremse "+double(long(bereich#+&loop+1,0))
endif
endwhile
endif
Endwhile
Fin
|
|
| |
| |
| |
|
|
| Machste simple une eigene Zählschleife z.B.:
ou bien xpseischer:
|
|
| |
| |
| |
|
|
funkheld | Jup, merci. cela funktioniert.
J'ai pensé il peut qui Variable & Loop au cours de des Ablaufes changement.
pourquoi wird pour 10 durchläufen cela mot "ende" pas geprintet?
|
|
| |
| |
| |
|
|
Wilfried
Friebe | Hi
j'ai la fois un bisschen modifié allerdings sans XPSE
Salut 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" | 12.05.2012 ▲ |
|
| |
|
|
Jörg
Sellmeyer |
pourquoi wird pour 10 durchläufen cela mot "ende" pas geprintet?
Weil Du aus cette Boucle pas herauskommst:
avec Continue springst Du toujours wieder à den Schleifenanfang. Pause unterbricht qui Boucle. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 12.05.2012 ▲ |
|
| |
|
|
funkheld | Jup, merci pour qui verschiedenen Lösungen.
Gruss |
|
| |
| |
| |
|
|
| Hi!
si sich aus Deiner Sicht eines Deiner Sujets "erledigt" hat,
ensuite cela Thema simple comme "erledigt" markieren.
ensuite wirds z.B. aussi chez "Aktuelle Themen" ( [...]  ) comme erledigt angezeigt.
Pour cette simple unten chez den "Themenoptionen" sur "erledigt" klicken.
Ebenso peux Du Posts comme "Lösung" markieren. cela wiederum allez si on
avec qui souris sur den "Mehr"-Button fährt (chacun Beitrag hat solch Button unten à droite)
et qui Option "Als Solution deklarieren" bestätigt. |
|
| |
| |
| |
|
(848)
Deutsch
English
Français
Español
Italia