Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 985 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
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 ...

Webentwicklung
gelöst Foto Upload und Default Text einfügen (12)

Frage von smackee zum Thema Webentwicklung ...

Neue Wissensbeiträge
Viren und Trojaner

Link: Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Switche und Hubs
gelöst VLAN für Gäste WLAN einrichten über FritzBox und Switch (10)

Frage von Elo-14 zum Thema Switche und Hubs ...

Windows Server
Frage zu Server Rack (10)

Frage von rainergugus zum Thema Windows Server ...