ANSI/UTF-8 פורמט ברירת מחדל של קבצי טקסט Win7

[DinDani]

האם ניתן לשנות את ברירת המחדל של קבצי טקסט כך שיהיו UTF-8 ולא ANSI?
במידה ולא, האם יש למישהו פתרון חכם להמרת הפורמט של עשרות רבות של קבצי טקסט בצורה מהירה?
(התוכן שלהם בעברית, הפורמט של הקובץ הוא ANSI אבל צריך להיות UTF-8)

אחרת אאלץ לעבור קובץ אחד קובץ, לפתוח אותו, לשנות את הפורמט ולשמור, מייגע.

תודה.

[agent__smith]

נסה את זה.

http://www.addictivetips.com/windows-ti ... -encoding/

[שלגון]

כתבתי בשעתו VB script קטן שרץ ב- Word (מקרו) שנועד לעשות בדיוק את זה: לפתוח קובץ ascii אחד או יותר (מאפשר בחירה מרובה) בקידוד של Hebrew Windows, ולשמור אותו (=לדרוס את המקור) כ- Unicode.

הנה ה- script:

קוד: בחירת הכל

Sub HebrewWindowsToUnicode()
'
' HebrewWindowsToUnicode
' recorded 16-Sep-05 by Shalgon
' version 1.0
'
' Convert one or more Hebrew(Windows)-encoded file(s) to Unicode
' Original file is overwritten

' create and display a file selection dialog (allowing multiple selection)
' with some common subtitle format filters
'
Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With objFileDialog

    .AllowMultiSelect = True
    .Title = "Choose Hebrew subtitle(s)"
    .Filters.Clear
    .Filters.Add "SubRip files", "*.srt"
    .Filters.Add "MicroDVD files", "*.sub"
    .Filters.Add "Text files", "*.txt"
    .Filters.Add "All Files", "*.*"

    'If user cancels, Show will be false
    If .Show = False Then
        Exit Sub
    End If
           
    For Each HebFile In .SelectedItems
    
        ' Open it using the Hebrew(Windows) encoding
        Documents.Open FileName:=HebFile, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:="", Encoding:=1255, DocumentDirection:= _
            wdLeftToRight
            
        ' name of unicode file
        'UnicodeFile = HebFile & ".txt"
        UnicodeFile = HebFile
    
        ' Save it as a Unicode file
        ActiveDocument.SaveAs FileName:=UnicodeFile, _
            FileFormat:=wdFormatText, LockComments:=False, Password:="", _
            AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
            EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
            :=False, SaveAsAOCELetter:=False, Encoding:=1200, InsertLineBreaks:=False _
            , AllowSubstitutions:=False, LineEnding:=wdCRLF, AddBiDiMarks:=False

        ' Close the file
        ActiveDocument.Close
        
    Next HebFile

End With

End Sub