Top-Themen

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

Wert aus ini Datei, einer Variable in VBS übergeben

Mitglied: jogi1989

jogi1989 (Level 1) - Jetzt verbinden

31.07.2012, aktualisiert 01.08.2012, 5335 Aufrufe, 8 Kommentare

Wert aus ini File einer Variable übergeben

Hallo zusammen,

Ich habe ein Probelm und zwar, will ich eine VBA datei schreiben,
in der ich die Fensterposition einzelner Fenster festlegen kann.

die Positionen sollen in einer Ini Datei stehen

mit meinem VBA scribt möchte ich die Werte aus der Ini Datei auslesen und mit einer Variable diese Werte benutzen.

Ich weiß nicht wie ich das programmieren soll

ich hoffe Ihr könnt mir helfen

vielen Dank im voraus!

MFG jogi
Mitglied: Karo
31.07.2012 um 12:00 Uhr
Hi,

...ähm...was Du da geschrieben hast ist nicht VB! Möchtest Du jetzt per Batch (cmd, bat) auslesen oder VB oder VBS?
Dann solltest Du nach (VBS) CreateObject("Scripting.FileSystemObject") oder (VB) 'Open For Input As' suchen.

bye
Karo
Bitte warten ..
Mitglied: jogi1989
31.07.2012 um 12:49 Uhr
Achso, ich habe da noch nicht wirklich viel ahnung von.

Das soll in VBS geschrieben werden.
kannst du mir da vllt weiterhelfen am besten mit einem Beispiel.
oder einem Link der mir weiterhelfen könnte
Bitte warten ..
Mitglied: Karo
31.07.2012 um 14:10 Uhr
Hi,

hier ein einfaches Script zum auslesen einer Datei.

01.
 Option Explicit  
02.
 Dim oFSO, sFile, oFile, sText  
03.
 Set oFSO = CreateObject("Scripting.FileSystemObject")  
04.
 sFile = "DATEINAME"  
05.
 If oFSO.FileExists(sFile) Then  
06.
  Set oFile = oFSO.OpenTextFile(sFile, 1)  
07.
   Do While Not oFile.AtEndOfStream  
08.
    sText = oFile.ReadLine  
09.
     If Trim(sText) <> "" Then  
10.
      WScript.Echo sText  
11.
     End If  
12.
   Loop  
13.
  oFile.Close  
14.
 Else  
15.
  WScript.Echo "ACHTUNG! Datei nicht vorhanden!"  
16.
 End If 
bye
Karo
Bitte warten ..
Mitglied: jogi1989
31.07.2012 um 14:22 Uhr
OK Vielen Dank.

meine Frage ist jetzt nur, wie kann ich die Daten die ich ausgelesen habe als variable benutzen?
Bitte warten ..
Mitglied: Karo
31.07.2012, aktualisiert um 16:17 Uhr
sText ist doch schon eine Variable. Ansonsten mußt Du mit Arrays arbeiten.

01.
 Option Explicit  
02.
 Dim oFSO, sFile, oFile, sText(), count  
03.
 Set oFSO = CreateObject("Scripting.FileSystemObject")  
04.
 sFile = "DATEINAME"  
05.
 If oFSO.FileExists(sFile) Then  
06.
  Set oFile = oFSO.OpenTextFile(sFile, 1)  
07.
   Do While Not oFile.AtEndOfStream  
08.
    count=count+1 
09.
    sText(count) = oFile.ReadLine  
10.
     If Trim(sText(count)) <> "" Then  
11.
      WScript.Echo sText(count)  
12.
     End If  
13.
   Loop  
14.
  oFile.Close  
15.
 Else  
16.
  WScript.Echo "ACHTUNG! Datei nicht vorhanden!"  
17.
 End If 
Somit sind die Werte in sText(1) bis sText(x)

Karo
Bitte warten ..
Mitglied: bastla
31.07.2012, aktualisiert um 18:00 Uhr
... dann würde ich aber gleich am Stück einlesen:
01.
Set oFSO = CreateObject("Scripting.FileSystemObject")  
02.
sFile = "DATEINAME" 
03.
If oFSO.FileExists(sFile) Then 
04.
  aLines = Split(oFSO.OpenTextFile(sFile).ReadAll, vbCrLf) 
05.
  For Each sLine In aLines 
06.
    If Trim(sLine) <> "" Then 
07.
       MsgBox sLine 
08.
    End If 
09.
  Loop 
10.
Else 
11.
  MsgBox "ACHTUNG! Datei nicht vorhanden!" 
12.
End If
Unterschied: Es werden so auch Zeilen, die leer sind oder nur Leerzeichen enthalten, erfasst (aber nicht ausgegeben) ...

BTW: Split() könnte auch für die Weiterverarbeitung nützlich sein ...

Anmerkung: VBS und "Fensterposition" passt nicht so ganz gut, daher vermutlich doch VB(A), und deswegen die MsgBox ...

Grüße
bastla
Bitte warten ..
Mitglied: jogi1989
01.08.2012 um 09:30 Uhr
Ja stimmt eher in VBA, Vielen dank, das hat mir schon etwas weiter geholfen.
jetzt bekomme ich jede zeile ausgelesen

der Inhalt meiner .Ini datei sie im etwas so aus


vom 01.08.2012

Left=50 Top=50



objIE.Visible = False
'objIE.TheaterMode = True
'objIE.Visible = True
'iHeight = objIE.Height
'iWidth = objIE.Width
'objIE.TheaterMode = False
objIE.Left = ... <-------------
objIE.Top = ... <-------------
objIE.Height = 800
objIE.Width = 800
objIE.Navigate("http://...")
objIE.AddressBar = False
objIE.StatusText = False
objIE.Toolbar = False
objIE.Visible=True


ich würde gern die wete Top und Left aus der Ini Datei als variable bei objIE.Left und
objIE.Top stehen haben, das bekomme ich leider immer noch nicht hin
Bitte warten ..
Mitglied: bastla
01.08.2012 um 10:38 Uhr
Hallo jogi1989!

Abgesehen davon, dass es mehrere Werte in einer Zeile unnötig schwer machen: neben dem schon erwähnten "Split()" solltest Du Dir noch "InStr()" ansehen (und klären, ob denn zumindest die Struktur der Zeile - mit genau dem einen Leerzeichen - immer vorausgesetzt werden kann; anderenfalls findest Du Dich bei "RegExp" wieder) ...

Grüße
bastla

P.S.: Wie "Code"-Formatierung geht, findest Du hier ...
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Variable aus ini Datei auslesen und weiterverwenden

gelöst Frage von n0cturneBatch & Shell17 Kommentare

Hallo zusammen, ich habe eine settings.ini Datei, die unter anderem folgendes beinhaltet: Settings port=1313 Nun möchte ich den Port ...

Batch & Shell

Vbs - Variable als Parameter an externes Programm übergeben und Rückgabewert in Variable schreiben

gelöst Frage von goodbytesBatch & Shell4 Kommentare

Hallo, ich habe ein vbs-Script, welches alle Dateien eines Verzeichnisse in ein Array schreibt. Mittels eines kleinen Tools kann ...

VB for Applications

Abfrage, ob Datei mit Variablem Wert existiert

gelöst Frage von AnrionVB for Applications12 Kommentare

Hallo Forum, Ich habe diesen Code: Jedoch funktioniert er nicht ganz wie er soll (bzw. gar nicht). Es soll ...

HTML

HTML Formular Werte an Excel Datei übergeben

Frage von gamerffHTML7 Kommentare

Hallo, Kann ich die Werte die Besucher auf meiner webseite in das HTML Formular eingeben an eine Exceldatei übergeben ...

Neue Wissensbeiträge
Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 19 StundenWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Sicherheit

Zero Day-Schwachstelle im Internet Explorer - wird von APT bereits ausgenutzt

Information von kgborn vor 1 TagSicherheit

Im Kernel des Internet Explorer scheint es eine Zero Day-Lücke zu geben, die von staatlichen Akteuren (APT) im Rahmen ...

Microsoft
Folder Security Viewer-Lizenzen zu gewinnen
Information von kgborn vor 1 TagMicrosoft

Ich nehme das Thema mal in Absprache mit Frank hier auf, da es für den einen oder anderen Administrator ...

Hardware

Feueralarm killt Festplatten in Rechenzentrum - führt zu größerem Ausfall

Information von kgborn vor 1 TagHardware12 Kommentare

Noch ein kleiner Beitrag für Administratoren, die in Rechenzentren aktiv sind - so als Fingerzeig. Denn es gibt Szenarien, ...

Heiß diskutierte Inhalte
Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux27 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++24 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless22 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

DSL, VDSL
ISP Wechsel auf Vodefone Koax, Gebäudeverkabelung nur per Cat 7
gelöst Frage von wusa88DSL, VDSL18 Kommentare

Hallo Zusammen, ich bin momentan bei Mnet als Glasfaser Kunde und möchte Preis/Leistungs-Technisch zu Kabel Deutschland / Vodafone wechseln. ...