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

gelöst Zeilenumbruch aus TXT-File übernehmen in eingefügten Bereich

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

28.09.2011 um 14:57 Uhr, 4332 Aufrufe, 7 Kommentare

Aus einer TXT-Datei (*.ini) soll ein Vorlagen-Text einschließlich Zeilenumbrüche usw entnommen und in eine neue E-Mail eingefügt werden.

Hallo miteinander,

wie das Vorwort schon vermuten lässt, möchte ich gerne aus einer TXT-Datei, die als ini-Datei vorliegt, einen Text entnehmen. Der Text soll als Vorlage dienen und formatiert sein. Die Formatierung soll zumindest Zeilenumbrüche umfassen.

Mit meinem Code kann ich bis jetzt zeilenweise dem TXT-File entnehmen. Der Code sieht folgendermaßen aus:

NachrichtenTextErstellen

01.
Sub NachrichtenTextErstellen()
02.
    
03.
        BestMailTextDATEI = "\\SERVER\....\LB_MailText.ini"
04.
        Set objMailNeu = objOlApp.CreateItem(olMailItem)
05.

06.
            myMsgtext = _
07.
                fktGetINI(BestMailTextDATEI, "MAIL_DE", "Text01")
08.
            
09.
            myMsgtext = myMsgtext & fktGetINI(BestMailTextDATEI, "MAIL_DE", "Text02")
10.
    
11.
            With objMailNeu
12.
                .BodyFormat = olFormatPlain
13.
                .To = "Empf@enger.de"
14.
                .Subject = "Betreff"
15.
                .Body = myMsgtext
16.
                .Display
17.
            End With
18.

19.
End Sub


Funktion fktGetIni

01.
 
02.
Function fktGetINI(Dateiname As String, DieSektion _
03.
                As String, DerEintrag As String) As Variant
04.
                
05.
                Temp$ = String(ZeichenZahl, 0)
06.

07.
                X = GetPrivateProfileString(DieSektion, _
08.
                    DerEintrag, "", Temp$, 255, Dateiname)
09.
                Temp$ = Left$(Temp$, X)
10.
                fktGetINI = Temp$
11.
                
12.
End Function


Inhalt LB_MailText.ini

01.
 
02.
[MAIL_DE]
03.
Text01=	Text1Zeile1 **HIER ZEILENUMBRUCH**
04.
	text1Zeile2
05.
Text02=	Text2



Ob da vielleicht jemand einen Lösungsansatz weiß...?

Danke schon jetzt für Antworten und Hinweise.

Grüße,
Andreas
Mitglied: rubberman
28.09.2011 um 19:50 Uhr
Hallo ahstax.

Du hast eigentlich schon Glück, dass GetPrivateProfileString deine INI nicht als malformed zurückweist. Diese API parst natürlich zeilenweise, sodass text1Zeile2 eher als neuer Eintrag interpretiert wird (wenn nicht sogar gänzlich verworfen).
Entweder du bastelst dir deine eigene Funktion um solche nicht standardgerechte INI Dateien zu verarbeiten, oder du nutzt Zeichen/Zeichenkombinationen (zB. \n), die du nach dem Auslesen durch einen Zeilenumbruch ersetzt.

Grüße
rubberman
Bitte warten ..
Mitglied: ahstax
29.09.2011 um 08:27 Uhr
Erstmal guten Morgen rubberman und Danke für Deine Antwort.

Der Vollständigkeit halber, muss ich eingestehen, dass ich an und für sich von Programmieren allerhöchstens unterdurchschnittlich Ahnung habe und eher ein "Copy-Patse"-Programmierer bin als dass ich wüsste, was exakt genau passiert... Entsprechend war mir nicht klar, dass die GetPrivateProfileString nur dafür vorgesehen ist, zeilenweise auszulesen.

Was mit der von mir eingefügten ini tatsächlich passiert ist, dass text1Zeile2 tatsächlich schlicht nicht ausgelesen, zumindest nicht ausgegeben wird.

Der Ansatz mit "\n" könnte tatsächlich eine gangbare Lösung sein. Wie verhält sich denn die GetPrivateProfileString, wenn in der ini-Datei Text durch fortlaufende Eingabe länger als eine Zeile wird? Interessiert die dann auch nur eine Zeile?

Gibt es eine "fertige" Alternative zu GetPrivateProfileString?

Grüße,
Andreas
Bitte warten ..
Mitglied: rubberman
29.09.2011 um 22:35 Uhr
Hallo ahstax.

Zitat von ahstax:
Der Ansatz mit "\n" könnte tatsächlich eine gangbare Lösung sein. Wie verhält sich denn die GetPrivateProfileString, wenn in der ini-Datei Text durch fortlaufende Eingabe länger als eine Zeile wird? Interessiert die dann auch nur eine Zeile?

Ich weiß ehrlich gesagt nicht, ob es eine Maximallänge für einen Wert in einer INI gibt, bis zu der GetPrivateProfileString in der Lage ist das Ganze noch zu verarbeiten.
Zum Einen wird es aber auf die Buffergröße ankommen, die du der Funktion übergibst (Temp$), dann hast du bereits durch die Bufferlänge 255 eine Grenze gesetzt und zuletzt wird dich der Variablentyp begrenzen, in den du einliest. Dieser dürfte (falls nicht explicit deklariert) on the fly zum String gecastet werden, von dem das MSDN sagt, dass er ca. 2 Mrd. Zeichen aufnehmen kann.
Eine Zeile ist übrigens eine Zeile. Dass der eine oder andere Texteditor die Zeilen für die Ansicht umbricht, um das Ganze lesbar zu halten, hat damit nichts zu tun. In einem HEX Editor wirst du einen Zeilenumbruch unter Windows an der Zeichenfolge 0D (Wagenrücklauf) und 0A (Zeilenvorschub) erkennen.


Zitat von ahstax:
Gibt es eine "fertige" Alternative zu GetPrivateProfileString?

Nein, die gibt es für diese Art von nichtstandardgerechten Zeilen einer INI Datei nicht. Es gibt verschiedene Workarounds für VBScript, aber auch nur deshalb weil API Aufrufe für VBS nicht zur Verfügung stehen.

Um auf die Verwendung einer Zeichenfolge, wie \n zurückzukommen:
Teste mal mit
01.
' ...
02.
X = GetPrivateProfileString(DieSektion, DerEintrag, "", Temp$, 255, Dateiname)
03.
Temp$ = Replace(Temp$, "\n", vbCrLf)
04.
' ...
in der Funktion fktGetINI, sowie entsprechend
Text01=Text1Zeile1\ntext1Zeile2 
in der INI.

Grüße
rubberman
Bitte warten ..
Mitglied: ahstax
30.09.2011 um 08:30 Uhr
Schönen guten Morgen,

das werde ich in jedem Fall machen!

Ich habe noch irgendwo im überfliegen mal gelesen, dass man TXT-Files "öffnen" können, um deren Inhalt "komplett" auszulesen? Geht das? Ich glaube, da danach schau ich zusätzlich mal und würde mich hierzu ggf nochmal melden, wenn das OK wäre...

In jedem Fall melde ich mich wieder zur von Dir vorgeschlagenen Lösung nach einem Test.

Grüße und nen angenehmen Tag,
Andreas
Bitte warten ..
Mitglied: rubberman
30.09.2011 um 22:02 Uhr
Hallo ahstax.

Danke für den "angenehmen Tag", leider war er alles Andere als angenehm ... egal.
Natürlich lassen sich Textfiles öffnen und auslesen. INI Dateien auf diese Art auszulesen und eine eindeutige Zuordnung zu bekommen, ist dann aber doch eine kleine Herausforderung. GetPrivateProfileString ist da mit einigem Abstand die beste und sicherste Methode.
Teste erst mal meinen Vorschlag. Falls das nicht den gewünschten Erfolg bringt, solltest du im nächsten Post unbedingt erwähnen in welcher Sprache du eigentlich programmierst. Im Moment sieht das für mich ein wenig nach VBA aus, kann mich aber auch irren.

Grüße
rubberman
Bitte warten ..
Mitglied: ahstax
04.10.2011 um 09:47 Uhr
Äh... ja... in der Tat...
Nicht sagen, worum es geht, macht es zwar geheimnisvoll, aber schlecht zu handhaben...

Es geht hier um VBA

Grüße,
Andreas
Bitte warten ..
Mitglied: rubberman
05.10.2011 um 02:12 Uhr
Hallo ahstax.

Kein Problem.

Trotzdem solltest du erst testen, ob du mit dem Replace weiter kommst. Alles andere wird nicht sonderlich schön, zumal du sonst, wie schon mehrfach erwähnt, keine standardkonforme INI Datei zugrunde legst. Ich habe keine Ahnung auf welche Art diese Datei erzeugt wird, aber vielleicht kann man da auch noch automatisieren oder die Anzahl der Zeilen variabel gestalten (schließlich gibt es ja auch ein Text02, warum nicht noch mehr?).
Eventuell könntest du auch statt einer INI eine XML Datei erzeugen, dann könnte man auf eine Array von Objekten zurückgreifen.
Es gibt also andere Alternativen, als Multiline-Einträge in einer INI Datei.

Grüße
rubberman
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Wie ersetze ich in einer .txt ein Lehrzeichen mit einen Zeilenumbruch?

gelöst Frage von AlexIOTBatch & Shell4 Kommentare

Hallo Zusammen, ich hoffe Ihr könnt mir helfen: folgende Ausgangssituation: Inhalt der .txt-Datei: Vorname Nachname, Abteilungskürzel <Mailadresse>; Vorname Nachname, ...

CSS

Zeilenumbruch ohne br

gelöst Frage von ANTiNATORCSS2 Kommentare

Ich habe einen <div> in den durch ein phpscript der Inhalt einer Textdatei eingegeben wird. Welcher wiederum aus einem ...

Batch & Shell

Zeilenumbruch in eventcreate

Frage von hansis1Batch & Shell7 Kommentare

Hallo! Ich möchte mit eventcreate in das WindowsLog schreiben. Allerdings brauche ich dafür auch Zeilenumbrüche. Wie kann ich das ...

Batch & Shell

Powershell - Zeilenumbruch in Mail

gelöst Frage von rodgerwilcoBatch & Shell2 Kommentare

Hallo zusammen, es wäre schön, wenn jemand zu meinem Problem eine Lösung hätte. Ich möchte per Mail Statusinformationen zu ...

Neue Wissensbeiträge
Windows Server

Zähe Update-Installation auf Windows Server 2016

Information von kgborn vor 1 TagWindows Server4 Kommentare

Mir sind in der Vergangenheit immer wieder Beschwerden von Admins unter die Augen gekommen, die sich über die doch ...

Humor (lol)
Turnschuhe per Firmware lahmlegen
Information von Henere vor 1 TagHumor (lol)5 Kommentare

Und was kommt demnächst ? Bekomme ich kein Klopapier mehr, weil der Spender einem DDOS unterliegt ? :-) Ich ...

Sicherheit

Sicherheitsrisiko in WinRAR und Co. durch Schwachstelle in UNACEV2.DLL

Information von kgborn vor 1 TagSicherheit

In der seit 2005 nicht mehr aktualisierten Bibliothek UNACEV2.DLL gibt es eine Path-Traversal-Schwachstelle. Diese ermöglicht es, bei ACE-Archiven Dateien ...

Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 2 TagenInternet4 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Heiß diskutierte Inhalte
Hardware
Frage an Kenner von 5,25 Zoll Laufwerken
Frage von DerWoWussteHardware53 Kommentare

Moin Kollegen. Hier wird gerade im Archiv gewühlt und 5,25 Zoll Disketten ("2S/HD", 96TPI) sollen eingelesen werden. Ich habe ...

Windows Tools
Dateiname Automatisch auf PDF Klartext oder als Barcode abdrucken
Frage von spongebob24Windows Tools29 Kommentare

Hallo Zusammen, habe eine tolle Anforderung bekommen. Ich sollte auf mehrere PDF Dateien Automatisch einen Stempel anbringen lassen. Toll ...

Internet
SDSL oder ADSL - Preis-Leistungs-Verhältnis
Frage von ZeppelinInternet22 Kommentare

Wehrte Community, der Unterschied dieser beiden Techniken ist recht einfach erklärt. Das S, steht für Synchron (Gleich) und das ...

Microsoft Office
MicroSoft und seine Lizenzen
Frage von ZeppelinMicrosoft Office19 Kommentare

Wehrte Community, ich wende mich an die Community weil MicroSoft dazu keine Stellung nehmen möchte. Ich öffne mein Web-Browser ...