Hallo zusammen,
bisher konnte ich alles was ich hilfsmäßig benötigt habe, immer im Forum finden. Nun komme ich aber an einer Stelle nicht weiter und vielleicht weiß einer hier Rat.
Ich habe einen Text, in dem Fall eine URL von einer Subdomain, der in eine Variable übergeht und benötge jetzt dafür die Teilstrings bis zum ersten und vom letzten Punkt.
Beispiel:
domainurl.test.com
Davon brauche ich quasi
domainurl und com
Zum Testen bring ich das in eine MsgBox und habe das schon mit SplitStringTeilstring gemacht. Der erste Teil domainurl ist damit kein Problem, allerdings bekomme ich das com nicht raus.
Wenn ich SplitStringTeilstring nutze bekomme ich domainurl und test.
Daher die Frage ob es die Möglichkeit gibt, den String ab dem letzten Punkt zu bekommen? Da dieser nicht immer 3-stellig ist, kann man ja schlecht mir StringRight arbeiten, oder?
Danke vorab und Gruß Björn
Hier mal der aktuelle Code:
; Begin AutoIt Includes
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Misc.au3>
#include <File.au3>
; End AutoIt Includes
; Variables
$Input_URL_Beispiel = "URL hier eingeben"
$URLFront = "Teil1"
$URLMiddle = "Teil2"
$URLEnd = "Teil3"
; Begin Menue
$Form1 = GUICreate("Hauptmenue", 331, 153, 783, 463)
$Button_Create = GUICtrlCreateButton("Create", 224, 112, 97, 25)
$Button_Beenden = GUICtrlCreateButton("Beenden", 8, 112, 99, 25)
$Input_URL = GUICtrlCreateInput($Input_URL_Beispiel, 16, 72, 297, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $WS_BORDER))
GUICtrlSetFont (-1,9, 800); bold
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Beenden
Exit
Case $GUI_EVENT_PRIMARYDOWN
$Input_URL_Leer = GUIGetCursorInfo()
If IsArray($Input_URL_Leer) Then
If $Input_URL_Leer[4] = $Input_URL Then
GUICtrlSetData($Input_URL, "")
Else
EndIf
EndIf
Case $Button_Create
$URL = GUICtrlRead($Input_URL)
_Single()
EndSwitch
WEnd
; End Menue
Func _Single()
MsgBox(64, "Information", $URLFront & StringSplitTeilstring ($URL, ".", 1) & $URLMiddle & StringSplitTeilstring ($URL, ".",2) & $URLEnd, $BS_Left)
EndFunc
Func StringSplitTeilstring ($sString, $sDelimiters, $iNummer)
Local $aTEMP
$aTEMP = StringSplit ($sString, $sDelimiters, 0)
Return($aTEMP[$iNummer])
EndFunc
Alles anzeigen