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

VB Script Schlagwort suchen und Leerzeile und Text einfügen

Frage Entwicklung VB for Applications

Mitglied: lex1987

lex1987 (Level 1) - Jetzt verbinden

18.02.2014, aktualisiert 15:03 Uhr, 953 Aufrufe, 2 Kommentare

Hallo,
ich bräuchte ein VB Script, das schaut ob ein einen Virutelle HW oder Physicalische ist und ob 32 bit oder 64 bit. Danach soll es je nach Version(32 oder 64) die richtige Datei im Ordner Programm Files oder Program Files(x86) öffnen. Und nach einem speziellem Schlagwort suchen und nach diesem eine Leerzeile einfügen und in diese kommt dann ein Satz eingefügt, danach wieder eine Leerzeile erstellt und nochmal ein Satz eingefügt. Wenn diese erledigt ist wird dann noch alles abgespeichert und geschlossen.

Ich bräuchte ganz dringend Hilfe.
Mitglied: colinardo
LÖSUNG 18.02.2014, aktualisiert um 15:03 Uhr
Hallo lex1987, Willkommen im Forum!
Ich bräuchte ganz dringend Hilfe.
wer brauch es hier nicht dringend, und das noch ohne irgendeine Vorarbeit deinerseits...?
Na egal, denke das hier solltest du an deine Bedürfnisse anpassen können:
01.
Dim strPath, strSuchwort 
02.
strSuchwort = "Suchmich" 
03.
Set objShell = CreateObject("Wscript.Shell") 
04.
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
05.
 
06.
If isVM Then 
07.
	If is64Bit Then  
08.
		strPath = objShell.ExpandEnvironmentStrings("%PROGRAMFILES(x86)%") & "\Testordner\test.txt" 
09.
	Else 
10.
		strPath = objShell.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\Testordner\test.txt" 
11.
	End If 
12.
	arrContent = Split(fso.OpenTextFile(strPath,1).ReadAll(),vbNewLine,-1,1) 
13.
	newText = "" 
14.
	For Each line In arrContent 
15.
		If InStr(1,line,strSuchwort,1) Then 
16.
			neueZeile1 = "BlaBla 1" 
17.
			neueZeile2 = "BlaBla 2" 
18.
			newText = newText & line & vbNewLine 
19.
			newText = newText & neueZeile1 & vbNewLine & neueZeile2 & vbNewLine 
20.
		Else 
21.
			newText = newText & line & vbNewLine 
22.
		End If 
23.
	Next 
24.
	fso.OpenTextFile(strPath,2).Write(newText) 
25.
End If 
26.
 
27.
 
28.
Function is64Bit() 
29.
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
30.
	Set colItems = objWMIService.ExecQuery("Select OSArchitecture from Win32_OperatingSystem") 
31.
	For Each objItem in colItems 
32.
		If LCase(objItem.OSArchitecture) = "64-bit" Then 
33.
			is64Bit = True 
34.
		Else 
35.
			is64Bit = False 
36.
		End If  
37.
	Next 
38.
 
39.
End Function 
40.
 
41.
Function isVM() 
42.
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
43.
	Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) 
44.
	 
45.
	For Each objItem in colItems 
46.
		If InStr(1,LCase(objItem.Model),"virtual",1) Then 
47.
			isVM = True 
48.
		Else 
49.
			isVM = False 
50.
		End if 
51.
	Next 
52.
End Function
Grüße Uwe
Bitte warten ..
Mitglied: lex1987
18.02.2014 um 15:10 Uhr
Hallo Uwe,
vielen Danke für dein Script es hat mir wirklich sehr weitergeholfen.
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Microsoft Office
gelöst Wie kann man die Standard-Schriftart bei einfügen von Text in Word 2013 festlegen? (3)

Frage von Rene1976 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...