 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Milchmann
Anmeldedatum: 10.12.2007
Beiträge: 53
|
 Verfasst am: Mo März 03, 2008 9:20 pm Titel: |
 |
|
Danke
Bert |
|
| Nach oben |
|
 |
Chucky
Anmeldedatum: 07.01.2006
Beiträge: 614
Wohnort: Powerland
|
| Verfasst am: Mo März 03, 2008 10:11 pm Titel: |
|
|
Ich habe die Funktion noch etwas erweitert. Man übergibt ihr einen String mit einer Liste von Zeichen, die durch Space ersetzt werden sollen: | Code: | DelSpExtHex =
(Join
5589E583EC188B45088945FC8B45088945F8C645F6018B45FC0FB6008845F7807DF700751B807DF600740D8B
45F83B450876058D45F8FF088B45F8C60000EB498B450C894424040FB645F7890424E83B00000084C0741780
7DF60075258B45F8C600208D45F8FF00C645F601EB148B45F889C20FB645F788028D45F8FF00C645F6008D45
FCFF00EB8D8B4508C9C35589E583EC088B45088845FF8B450C803800741B8B450C89C28D450CFF000FB6023A
45FF75E6C745F801000000EB07C745F8000000008B45F8C9C3
)
MCode(DelSpExt, DelSpExtHex)
a =
(
Des`t`tWaldes Dunkel`tzieht mich an, doch muß `rzu meinem Wort ich stehn
und Meilen `ngehn, bevor ich schlafen `r kann. `t Ich wiederhole, Chucky:
`tMeilen gehen bevor ich schlafen kann.
)
Pattern := "`n`r `t"
Out := a
DllCall(&DelSpExt, "str", Out, "str", Pattern)
MsgBox Vorher:`n--------`n%a%`n--------`n`n`nNacher:`n--------`n%Out%`n--------
MCode(ByRef code, hex) { ; allocate memory and write Machine Code there
VarSetCapacity(code,StrLen(hex)//2)
Loop % StrLen(hex)//2
NumPut("0x" . SubStr(hex,2*A_Index-1,2), code, A_Index-1, "Char")
} |
Den Beispieltext habe ich gerade bei einem Telefongespräch mitgeschrieben.
So, jetzt habe ich aber keine Zeit mehr, muß weg, ... unbedingt was tun ... wohin? ich weiß nicht ... 
Steht bestimmt morgen in der Zeitung 
__________________________________________
Created with BBCodeWriter 7.0 - the one and only |
|
| Nach oben |
|
|
haichen
Anmeldedatum: 10.06.2007
Beiträge: 78
|
| Verfasst am: Mo März 03, 2008 11:47 pm Titel: |
|
|
| Ein Meisterwerk von Don Siegel! ...Drrrring...Drrrriiing... . . . |
|
| Nach oben |
|
|
Milchmann
Anmeldedatum: 10.12.2007
Beiträge: 53
|
| Verfasst am: Sa Apr 05, 2008 10:37 pm Titel: |
|
|
Hallo und guten Abend,
es ist nun spät und ich möchte mir mal die jetzt folgenden Funktion ( aus diesem Thread vorknüpfen). Leider klappt diese nicht so, wie ich mir das vorstelle!
| Code: | Loop, Parse, ClipBoard, `n`r`
{
DelSp(A_LoopField)
ParsedContent .= A_LoopField "`n"
}
MsgBox % ParsedContent
DelSp(str)
{
StringReplace, Str, Str,%a_tab%,%a_space%, All
loop,
if (instr(str," "))
StringReplace, Str, Str,%a_space%%a_space%,%A_space%, All
else
break
if (substr(str,1,1)=" ")
str := substr(str,2)
if (substr(str,0)=" ")
str := substr(str,1,-1)
return %str%
} |
Dabei habe ich aber folgendes Problem:
Wieso übergibt die Funktion nicht die Daten an die Loop? 
Danke Bert |
|
| Nach oben |
|
|
Tuncay
Anmeldedatum: 28.10.2006
Beiträge: 127
Wohnort: Berlin
|
| Verfasst am: Sa Apr 05, 2008 11:05 pm Titel: |
|
|
Das Problem liegt hier:
| Zitat: | | Code: | Loop, Parse, ClipBoard, `n`r`
{
DelSp(A_LoopField)
ParsedContent .= A_LoopField "`n"
} |
|
Ergebnis von DelSp() wurde ja nicht gespeichert, sondern nur das
A_LoopField einfach übernommen wie es ist.
| Code: | Loop, Parse, ClipBoard, `n`r`
{
ParsedContent .= DelSp(A_LoopField) "`n"
} |
_________________
Manchmal ist es /falsch/ das "richtige" zu tun. |
|
| Nach oben |
|
|
Milchmann
Anmeldedatum: 10.12.2007
Beiträge: 53
|
| Verfasst am: So Apr 06, 2008 9:24 am Titel: |
|
|
Hallo Tuncay,
danke, ich hatte Tomaten auf den Augen,, war gestern sehr spät.
Bert |
|
| Nach oben |
|
|
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
|
Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de |
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
