String in tabelle

subzero007

Hey,

ich habe ein Problem und weiß nicht wie ich das lösen kann??

Also suche "PC1" wenn du es findest dann gebe aus "192.168.0.11"
die einträge sind mit , getrennt.

Wie mache ich das?

Danke für eure Hilfe
Gruß
SubZero

192.168.0.11, PC1-053042118071, 00215c1d0be1, PC, DHCP, , Domain,
192.168.0.12, PC2-053042113062, 001de028267b, PC, DHCP, , Domain,
192.168.0.13, PC3-7053042112032, 00215c6dec3d, PC, DHCP, , Domain,
192.168.0.14, PC4-7053033111022, 001de01b82eb, PC, DHCP, , Domain,
192.168.0.14, PC5, 001de01b82eb, 001gh01b82eb, PC, DHCP, , Domain,

**Oscar**

So:

[autoit]

$string = '192.168.0.11, PC1-053042118071, 00215c1d0be1, PC, DHCP, , Domain, '
If StringInStr($string, 'PC1-') Then MsgBox(0,0,StringRegExpReplace($string, '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),.+', '$1'))

[/autoit]

subzero007

Hey,
nimmst du es mir übel wenn ich noch frage wie ich die csv einlesen sollte?

Danke
SubZero

subzero007

Danke

filereadline

**Oscar**

FileReadLine ist ziemlich langsam, ich würd's so machen:

[autoit]

$aData = StringSplit(FileRead(@ScriptDir & '\data.txt'), @CRLF, 1)
For $i = 1 To $aData[0]
If StringInStr($aData[$i], 'PC1-') Then MsgBox(0,0,StringRegExpReplace($aData[$i], '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),.+', '$1'))
Next

[/autoit]

kasul

Oder gleich die RegExp auf die ganze Datei ansetzen?

[autoit]

$string = FileRead("xyz.csv")
$Suchbegriff = "PC1"
$Ergebnis = StringRegExpReplace($string,'(?s)\A.*?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}), ' & $Suchbegriff & '-.+\Z',"$1")

[/autoit]

nuts

Sollte wirklich ein konstanter Satzaufbau wie in Post1 geschildert vorliegen, kann man sich die Regexp' en hier eigentlich sparen.

Spoiler anzeigen

[autoit]

$aData = StringSplit(FileRead(@ScriptDir & '\data.txt'), @CRLF, 1)
For $i = 1 To $aData[0]
If StringInStr($aData[$i], 'PC1-') Then
$asplit = StringSplit($aData[$i], ",")
MsgBox(0,0, $asplit[1])
endif
Next

[/autoit]