Поиск атрибутов китайских имен файлов с помощью NewLISP? - PullRequest
Новая
       11

Поиск атрибутов китайских имен файлов с помощью NewLISP?

1 голос
/ 21 июня 2010

Следующий код NewLISP показывает мне атрибуты файлов файлов под Win32. Тем не менее, некоторые из найденных имен имеют китайские символы в имени. Когда функция GetFileAttributesA встречает их, она дает мне -1 для атрибута. Я посмотрел на GetFileAttributesW, но не знаю, как сделать содержимое fname доступным для функции в форме, которую она распознает.

Как справиться с этой ситуацией? (Я готов рассмотреть возможность использования другого языка) 

(define (get-archive-flag file-name)
    (if (not GetFileAttributesA)
        (begin
        (import "kernel32.DLL" "GetFileAttributesA")
        )
    )
    (setq fname file-name file-attrib (GetFileAttributesA (address fname)))   
    (append fname " " ( string file-attrib))    
)

; walks a disk directory and prints all path-file names
;
(define (show-tree dir)
    (if (directory dir)
        (dolist (nde (directory dir))
            (if (and (directory? (append dir "/" nde))
                (!= nde ".") (!= nde ".."))
                (show-tree (append dir "/" nde))
                (println (get-archive-flag (append dir "/" nde)))
            )
        )
    )
)

(show-tree "z:\\working files\\Cathy")

Ответы [ 3 ]

2 голосов
/ 01 октября 2011

Начиная с версии 10.3.2, выпущенной 20 июля 2011 года, 10.3.2, MultiByteToWideChar внутренне обрабатывается newLISP при чтении путей / имен файлов.

1 голос
/ 07 июля 2010

Ради полноты, вот решение, найденное в консультации с людьми на форуме NewLISP .

Я не заменил технику bits slice reverse в бите атрибута.с более подходящим оператором &.Это осталось для читателя. 

(constant 'SIZEOF_WCHAR 2) ; assumption
(constant 'CP_UTF8 65001)

(define (utf8->16 lpMultiByteStr , cchWideChar lpWideCharStr ret)
    (if (not MultiByteToWideChar)
        (begin
        (import "kernel32.DLL" "MultiByteToWideChar")
        )
    )
    ; calculate the size of buffer (in WCHAR's)
    (setq cchWideChar 
        (
        MultiByteToWideChar
        CP_UTF8 ; from UTF-8
        0       ; no flags necessary
        lpMultiByteStr
        -1      ; convert until NULL is encountered
        0
        0
        )
    )

    ; allocate the buffer
    (setq lpWideCharStr (dup " " (* cchWideChar SIZEOF_WCHAR)))

    ; convert
    (setq ret 
        (
        MultiByteToWideChar
        CP_UTF8 ; from UTF-8
        0       ; no flags necessary
        lpMultiByteStr
        -1      ; convert until NULL is encountered
        lpWideCharStr
        cchWideChar
        )
    )
    (if (> ret 0) lpWideCharStr nil)
)

; resets the Win32 archive flag on a file
; By CaveGuy 2009

(define (get-archive-flag file-name)
    (if (not GetFileAttributesW)
        (begin
        (import "kernel32.DLL" "GetFileAttributesW")
        )
    )
    (setq fname file-name
        file-attrib (GetFileAttributesW (utf8->16 fname))
    )   
    file-attrib   
)

; walks a disk directory and prints all path-file names where archive bit is set
;
(define (show-tree dir)
    (if (directory dir)
        (dolist (nde (directory dir))
            (if (and (directory? (append dir "/" nde)) (!= nde ".") (!= nde "..") )
                (show-tree (append dir "/" nde))
                (if (not (or (= nde ".") (= nde "..")))
                    (begin
                    (setq fname (append dir "/" nde))
                    (setq fflag (get-archive-flag fname))
                    (setq fbits (bits fflag))
                    (if (= (slice (reverse fbits) 5 1) "1") (println fname))
                    )
                )
            )
        )
    )
)

(show-tree "//server/folder")
1 голос
/ 22 июня 2010

Возможно, вы не используете Unicode-версию Newlisp. В любом случае, здесь очень мало Newlispers. Попробуйте Newlisp forum .

...