Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Suche nach exakt einem Wort in einem String

Frage Entwicklung VB for Applications

Mitglied: TheUntouchable

TheUntouchable (Level 1) - Jetzt verbinden

10.12.2013, aktualisiert 14:22 Uhr, 1390 Aufrufe, 2 Kommentare, 1 Danke

Hallo liebe Leute,

auf die Schnelle habe ich jetzt leider nichts gefunden im Forum, bitte nicht steinigen wenn doch eine Antwort zu meiner Frage schon vorhanden ist

Ich benutze ein VBS Skript, um aus einer Textdatei Druckerzuweisungen auszulesen und diese beim Logon dem User zuzuweisen.

Ausschnitt aus der druckerconfig.txt (strMyPrintFile):
01.
TEST	Drucker251	Server1.domäne.de	cd 
02.
TEST01	Drucker134	Server1.domäne.de	c
Username (strName), Druckername, Druckserver, Standarddrucker (cd/c)

Wie ihr seht, kann es sein, das es User gibt, die am Anfang die gleichen Buchstaben haben. Mit dem folgenden Skript gibt das jetzt Probleme:
01.
Set objFS = CreateObject("Scripting.FileSystemObject") 
02.
	strPattern = ucase(strName) 
03.
	Set objFile2 = objFS.OpenTextFile(strMyPrintFile) 
04.
	Do while not objFile2.AtEndOfStream 
05.
		strLine = ucase(objFile2.ReadLine) 
06.
		If InStr(strLine,strPattern)=1 Then 
07.
			strsplit=Split (strline, vbTab) 
08.
			 For i = 0 to UBound(strsplit) 
09.
			 Next       
10.
			strPrinterSet = strsplit(1) 
11.
			strServerFQDN = strsplit(2) 
12.
			strDefault = strsplit(3) 
13.
			strsplit2 = Split (strServerFQDN, ".") 
14.
			strServer = strsplit2(0) 
15.
			if strServer <> "ALTERSERVER" Then 
16.
				strUNC1 = "\\" & strServer & "\" & strPrinterSet 
17.
				strPrinterListB = strPrinterListB & strUNC1 & vbCrLf 
18.
				If strDefault = "CD"  Then 
19.
						strDefaultPrinter = strUNC1 
20.
				End If 
21.
				If intWithText=1 Then 
22.
					objFile1.Write "         " & strUNC1 & " (" & strDefault & ")" & vbCrLF 
23.
				End If 
24.
			End If 
25.
		End If   
26.
	Loop
Das Skript verbindet beim Benutzer "test" auch alle Drucker vom Benutzer "test01". Ich habe schon ziemlich lange gesucht, aber ich finde keine Methode für vbs, bei der wirklich nur nach dem Gesuchten String im anderen String gesucht wird.. Kann mir da wer helfen? Danke!
Mitglied: TheUntouchable
10.12.2013 um 15:07 Uhr
Okey, ich hab mein Problem mitterweile selber gelöst Da die einzelnen Werte in der druckerconfig.txt durch ein Tab getrennt sind, habe ich einfach im Skript danach suchen lassen:

01.
strPattern = ucase(strName)& "	"
In den Anführungszeichen ist ein Tab ;)

Anschließend funktioniert das Ganze 1a Danke an mich selber :P
Bitte warten ..
Mitglied: bastla
LÖSUNG 10.12.2013, aktualisiert um 22:56 Uhr
Hallo TheUntouchable!

Noch besser lesbar wäre das mit
strPattern = UCase(strName) & vbTab
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Windows Tools
gelöst Suche Tool für Fehlersuche (6)

Frage von honeybee zum Thema Windows Tools ...

Outlook & Mail
Outlook 2016 - keine Ergebnisse in der Suche (11)

Frage von Corraggiouno zum Thema Outlook & Mail ...

Windows Tools
gelöst Suche Programm um Log auszuwerten + Mail notify (3)

Frage von NetzwerkDude zum Thema Windows Tools ...

Outlook & Mail
gelöst Suche Möglichkeit in Outlook Mails einem Projekt zu zuordnen (3)

Frage von Barthinator zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (38)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
Fachzeitschriften als E-Book oder hardcoded? (10)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...