Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
muerzi
Tutorial Leser
Tutorial Leser

Anmeldedatum: 03.08.2009
Beiträge: 45
Wohnort: Leoben
Datei in UTF-7, UTF-8, US-ASCII, Big5 usw. umwandeln
Verfasst am: 17.11.2009, 11:57
Hab mir da mal eine function gebastelt die eine Datei in beliebige "Formate" umwandelt
Folgenden Code einfach in Modul geben, und im Programm mit "Call FileToFormat (Pfad und Name der Datei, Charset_aus_Liste) aufrufen

Code:


'Charset:
'        UTF_7="utf-7", UTF_8="utf-8"
'        BIG5="big5", US_ASCII "us-ascii"
'        ISO_8859_1="iso-8859-1", ISO_8859_2="iso-8859-2"
'        ISO_8859_3="iso-8859-3", ISO_8859_4="iso-8859-4"
'        ISO_8859_5="iso-8859-5", ISO_8859_6="iso-8859-6"
'        ISO_8859_7="iso-8859-7", ISO_8859_8="iso-8859-8"
'        ISO_8859_9="iso-8859-9", EUC_JP="euc-jp"
'        EUC_KR "euc-kr"=GB2312, "gb2312"=ISO_2022_JP "iso-2022-jp"
'        ISO_2022_KR="iso-2022-kr", KOI8_R="koi8-r"
'        Shift_JIS="shift-jis"

Public Function FileToFormat(sFilename As String, CharFormat As String)
 
  Dim F As Integer
  Dim sInhalt As String
  Dim objStream As Object
 
  If Dir$(sFilename, vbNormal) <> "" Then       ' Existiert die Datei ?
    F = FreeFile
    Open sFilename For Binary As #F             ' Textdatei im Binärmodus öffnen
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt                           ' Inhalt in einem Rutsch auslesen
    Close #F                                    ' Textdatei schließen
  End If
 
  If Dir$(sFilename & "-Orig", vbNormal) <> "" Then       ' Existiert die Datei ?
    Kill sFilename & "-Orig"            ' Textdatei schließen
  End If
 
  Name sFilename As sFilename & "-Orig"         'Original Datei umbennen

  Set objStream = CreateObject("ADODB.Stream")  'Stream erzeugen
  With objStream
        .Open                                   'Öffen
        .Position = 0                           'Cursor setzen
        .Charset = CharFormat                   'Charset angeben
        .WriteText sInhalt                      'Zeichen in Stream schreiben
        .SaveToFile sFilename                   'Stream in Datei schreiben
  End With
 
 
End Function


mfg muerzi
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: utf8, umwandeln, datei, utf7

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 869 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2433 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.1492s ][ Queries: 81 (0.0414s) ][ GZIP on - Debug on ]