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, 978 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 ..
Ähnliche Inhalte
Linux Tools
gelöst Mit Linux am ende einer Datei eine Leerzeile einfügen (30)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Linux Tools ...

VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 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 ...

VB for Applications
gelöst VbScript: ADODB.Stream: Neue Zeile einfügen (2)

Frage von BirdyB zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Grafikkarten & Monitore
24" oder 27" mit Full HD oder doch mehr Auflösung? (22)

Frage von brutzler zum Thema Grafikkarten & Monitore ...

Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

E-Business
Wo tragt ihr eure privaten Termine ein? (13)

Frage von honeybee zum Thema E-Business ...