E-Mail-Adresse verkürzen

Stelle Fragen zur Programmierung mit Autohotkey

Moderator: jNizM

WPLPHSS
Posts: 168
Joined: 04 Feb 2017, 05:34

E-Mail-Adresse verkürzen

17 May 2021, 11:27

Guten Abend!

Ich möchte die über die Zwischenablage kopierte E-Mail-Adresse

[email protected]

auf nur

1) gmail.com
2) @gmail.com

beim Einfügen verkürzt bekommen.

Hat jemand eine Idee?
WPLPHSS
Posts: 168
Joined: 04 Feb 2017, 05:34

Re: E-Mail-Adresse verkürzen

17 May 2021, 12:39

Es soll der Text links vom @-Zeichen (Fall 2) entfernt und nicht eingefügt werden. Mit den Beispielen von StrSplit () bekomme ich es nicht hin. Ein Skript würde mir weiterhelfen.
gregster
Posts: 9053
Joined: 30 Sep 2013, 06:48

Re: E-Mail-Adresse verkürzen

17 May 2021, 13:02

Code: Select all

clipboard := "[email protected]"
arr := Strsplit(clipboard, "@")
msgbox % arr[2]			; ohne @
msgbox % "@" arr[2]		; mit @
Kannst du natürlich auch dem clipboard wieder zuweisen...
WPLPHSS
Posts: 168
Joined: 04 Feb 2017, 05:34

Re: E-Mail-Adresse verkürzen

17 May 2021, 13:14

Die Mail-Adresse [email protected] befindet sich bereits in der Zwischenablage. Es sollen nur die Zeichen links von @ aus der Zwischenablage gelöscht werden, so dass nur @gmail.com eingefügt wird.

Mit dieser Skriptvariante klappt es leider nicht.

Code: Select all

::,test::
arr := Strsplit(clipboard, "@")
Send, ^v
Return
gregster
Posts: 9053
Joined: 30 Sep 2013, 06:48

Re: E-Mail-Adresse verkürzen

17 May 2021, 13:15

gregster wrote:
17 May 2021, 13:15
Kannst du natürlich auch dem clipboard wieder zuweisen...
...bevor du es einfügst.

Code: Select all

clipboard := arr[2]		; clipboard := "@" arr[2]
oder direkt so:

Code: Select all

::,test::
clipboard := Strsplit(clipboard, "@")[2]	;  clipboard := "@" Strsplit(clipboard, "@")[2]	
Send, ^v
Return
WPLPHSS
Posts: 168
Joined: 04 Feb 2017, 05:34

Re: E-Mail-Adresse verkürzen

17 May 2021, 13:20

Super. Hat geklappt. Vielen herzlichen Dank.

Return to “Ich brauche Hilfe”

Who is online

Users browsing this forum: No registered users and 22 guests