Bitte nochmal genauer,
du willst also einen servername angeben und dann die DB Server adresse bekommen oder wie?
meinst du sowas?
#include <file.au3>
$alias=""
$file = "test.txt"
$count=_FileCountLines($file)
For $i=1 To $count
$read=FileReadLine($file,$i)
If StringInStr($read,"srv08110") Then $alias&="DBserver"
Next
MsgBox(0,"",$alias)
Vielleicht so?
[autoit]#include <File.au3>
Func _SearchDNS($server, $file)
Local $read
_FileReadToArray($file, $read)
For $i = 1 To $read[0] Step +1
$split = StringSplit($read[$i], " ")
If StringInStr($split[3], $server) Then Return $split[1]
Next
Return 0
EndFunc ;==>_SearchDNS
Ahhhh nicht mehr in einer
mm so geht auch
#include <file.au3>
$alias=""
$file = "test.txt"
$count=_FileCountLines($file)
For $i=1 To $count
$read=FileReadLine($file,$i)
$split=StringSplit($read," ")
If StringInStr($read,"srv08110") Then $alias&=$split[1]
Next
MsgBox(0,"",$alias)
Ich danke euch! in beiden fällen komme ich aber noch nicht zum Ziel.
[autoit]#include <file.au3>
$alias=""
$file = "c:\temp\alias.txt"
$count=_FileCountLines($file)
For $i=1 To $count
$read=FileReadLine($file,$i)
$split=StringSplit($read," ")
If StringInStr($read,"srv08110") Then $alias&=$split[1]
Next
MsgBox(0,"",$alias)
Hier erhalte ich immer eine leere MSGbox. In sumsum Ansatz, erhalte ich fehler beim Kompilieren 
Alles anzeigenIch danke euch! in beiden fällen komme ich aber noch nicht zum Ziel.
[autoit]#include
[/autoit] [autoit][/autoit] [autoit]
$alias=""
$file = "c:\temp\alias.txt"
$count=_FileCountLines($file)For $i=1 To $count
[/autoit]
$read=FileReadLine($file,$i)
$split=StringSplit($read," ")
If StringInStr($read,"srv08110") Then $alias&=$split[1]
Next
MsgBox(0,"",$alias)Hier erhalte ich immer eine leere MSGbox. In sumsum Ansatz, erhalte ich fehler beim Kompilieren
Was denn für einen Fehler? Ich hatte eben noch eine mit Fehlern im Post, probier mal die neue aus.
hier nochmal was mit einem array
#include <file.au3>
#include <string.au3>
#include <array.au3>
Global $alias[1][2]
$file = "test.txt"
$count=_FileCountLines($file)
For $i=1 To $count
$read=FileReadLine($file,$i)
If $read="" Then ContinueLoop
$split=StringSplit($read," ")
[/autoit] [autoit][/autoit] [autoit]$alias[UBound($alias)-1][0]=$split[1]
[/autoit] [autoit][/autoit] [autoit]$str=_StringBetween($read,"CNAME ",".mydomain.com")
[/autoit] [autoit][/autoit] [autoit]$alias[UBound($alias)-1][1]=$str[0]
If $i = $count Then ExitLoop
ReDim $alias[UBound($alias)+1][2]
Next
_ArrayDisplay($alias)
MsgBox(0,"",$alias[0][0]&" = "&$alias[0][1])
Danke Dir sumsum
Mein Problem ist wohl, das ich nicht weiss, wie die Function aufrufen
Ich versuche es grad so
#include <File.au3>
Func _SearchDNS($server, $file)
Local $read
_FileReadToArray($file, $read)
For $i = 1 To $read[0] Step +1
$split = StringSplit($read[$i], " ")
If StringInStr($split[3], $server) Then Return $split[1]
Next
Return 0
EndFunc ;==>_SearchDNS
$file = "c:\temp\alias.txt"
$server="srv08110"
$query=_SearchDNS($server, $file)
MsgBox(4096, "Test", $query, 10)
Probiers doch mal so :
#include <File.au3>
Msgbox(64,"Alias",_SearchDNS("srv08110","servers.txt") )
Func _SearchDNS($server, $file)
Local $read
_FileReadToArray($file, $read)
For $i = 1 To $read[0] Step +1
If $read[$i] <> "" Then
$split = StringSplit($read[$i], " ")
If StringInStr($split[3], $server) Then Return $split[1]
Endif
Next
Return 0
EndFunc ;==>_SearchDNS
Dann mal so:
(hab jetz nur den Fehler ausgebessert ohne den Thread zu lesen
gut möglich das es nich das richtige tut^^)
#include <File.au3>
MsgBox(64, "Alias", _SearchDNS("srv08110", "servers.txt"))
Func _SearchDNS($server, $file)
Local $read
_FileReadToArray($file, $read)
For $i = 1 To $read[0] Step +1
If $read[$i] <> "" Then
$split = StringSplit($read[$i], " ")
If IsArray($split) And UBound($split) > 3 Then
If StringInStr($split[3], $server) Then Return $split[1]
EndIf
EndIf
Next
Return 0
EndFunc ;==>_SearchDNS
Ähhmm heißt die Textdatei denn überhaupt servers.txt und befindet sich in dem Verzeichnis des Scriptes?
Im Anhang ist noch eine benutzerfreundliche Version.
Danke für eure Tips!
Schnitzel: ich erhalte jetzt keine Fehlermeldung mehr, aber immer eine Msgbox mit Alias 0 - obwohl der Server in der Liste ist.
@ sumsum: Ich habe leider ein x86 OS, und kann das nicht starten
Beim Kompilieren deines Scripts happert es hier:
Kannst du vielleicht einfach mal eine Beispiel Datei hier hochladen ?
EDIT:
Ich hab kein x86 -.- Trotzdem kann ichs ausführen, im Anhang 64bit version
Jetz hab ich mir den Thread mal durchgelesen 
Ihr geht das ganze viel zu kompliziert an.
Probiers mal so:
$exp = StringRegExp(FileRead('test.txt'), '\b(\w+) CNAME ' & InputBox('', 'Gib den Servernamen ein', 'srv01023') & '.', 3)
If IsArray($exp) Then MsgBox(0,'', $exp[0])
Bin jetz nich der RegEx-Profi aber so könnts passen:
[autoit]#include <Array.au3>
$exp = StringRegExp(FileRead('server.txt'), '\b(\w+)\V+CNAME +' & InputBox('', 'Gib den Servernamen ein', 'srv0004') & '.', 3)
If IsArray($exp) Then _ArrayDisplay($exp)
Vorrausgesetzt ich hab dich richtig verstanden^^
