VB 4/6- und VBA-Forum - Beitragsübersicht -
Von Fross
E-Mail alexander.fross@gmx.net
Datum 04. Dezember 2015 um 18:39:22
Frage Guten Abend

Mit dem nachfolgenden Code wird aus Excel eine Zeichenfolge in eine Textdatei geschrieben:
Private Sub Write_Textfile(ByVal svText As String)

Dim fn As Long
Dim sFile As String
Dim sPath As String

fn = FreeFile

sPath = ThisWorkbook.Path & "\"
sFile = "IMP_NAV_Serviceartikel.txt"

Kill sPath & sFile

Open sPath & sFile For Binary As fn
Put #fn, 1, svText
Close fn

End Sub
Weiss jemand, wie ich den String svText so konvertieren kann, dass die Umlaute und Sonderzeichen im Format MS-DOS in die Textdatei geschrieben werden. D.h. die Textdatei soll so erstellt werden, wie wenn man die Excel Tabelle mit 'Speichern Unter' im Fileformat 'Text MS-DOS' abspeichert.

Besten Dank für die Hilfe.
A. Fross
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
E10: String in Textdatei schreiben im Fileformat MSDOS - Fross 04. Dezember 2015 um 18:39:22
Re: String in Textdatei schreiben im Fileformat MSDOS - Fross 04. Dezember 2015 um 19:13:17

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Excel 2010 (VBA 6)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015