御所車 子育て支援センターつくしんぼの会 株式会社恵峰庵


マックユーザの部屋 一覧に戻る
投稿番号:106926  投稿日:2003年09月12日 08時53分17秒 パスワード
お名前:庭二羽鶏

OSX/OS9 ファイルネームの文字数

キーワード:ファイルネーム も字数
分類 :その他

OSXではロングファイルネームもつけられるようになりましたが、

長いファイルネームを付けたものを、OS9環境で見ると文字化けしてしまいます。

まだまだ、OSX と OS9両方使いますし、
OS9環境のみの人にファイルを渡す場合もあります。

そこで、OSXにてファイルネームの文字数をチェックするソフト等がないかな?
と思い、質問させていただきました。
全てのファイルを、いちいち何文字かな?と目視で調べて行くのは大変な労力なもので…。

Appleスクリプトなどでもできるのしょうか…??

[1]すとれいさんからのコメント(2003年09月13日 23時16分17秒 )
パスワード
庭二羽鶏さん こんばんは

AppleScriptで作ってみました。
OS X 10.2で確認。パスに日本語があってもOK。

スクリプトエディタ上で実行すると、
Finderで選択中のファイル(複数なら1個目)の
ファイル名(パスを含まず、拡張子は含む)の長さを
全角1文字を2バイトに換算してバイト数で表示します。
(ディスク上で全角1文字が2バイトでなくても)

力不足でドロップレットにまではできませんでした。
あとはお任せします。

参考にしたページ
http://mtlab.ecn.fpu.ac.jp/WSM_2000/000214192641.html
http://homepage1.nifty.com/ton_b/AppleScript/Tips/String/FindReplace.html

--
on run
tell application "Finder"
set dropList to selection
end tell
main(dropList)
end run

on main(dropList)
set dropFile to (item 1 of (dropList as list)) as alias
set dropFile to dropFile as text
set myFile to ref2FileName(dropFile)
set myByte to ByteLength(myFile)
display dialog (myByte)
end main

on ByteLength(TXT)
set x to 0
repeat with i in TXT
if (ASCII character (ASCII number (contents of i))) = contents of i then
set x to x + 1
else
set x to x + 2
end if
end repeat
return x
end ByteLength

on ref2FileName(theFile)
set tmp to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set fileName to last text item of (theFile as string)
set AppleScript's text item delimiters to tmp
return fileName
end ref2FileName
--

[2]庭二羽鶏さんからのコメント(2003年09月17日 11時07分56秒 )
パスワード
すいません、返信遅れてしまいました。

素晴らしい内容のレス有り難うございます!
感激しました。

早速試してみたいと思います。
本当に有り難うございました!

 【 マックユーザの部屋 一覧に戻る


井上書店 住吉神社 陣屋


この投稿に対するコメント
コメント:

HTMLタグは使えません。改行は反映されます。
http://xxx.xxx/xxx/xxx や xxx@xxx.xxx のように記述すると自動的にリンクがはられます。

お名前:(省略不可)
削除用パスワード:(省略不可8文字以内)
メールアドレス:(省略不可)
URLアドレス:
 ホームページをお持ちの方のみ、そのURLアドレスを記入してください。



チップス

Copyright(C) 2000 Tips. All Rights Reserved.◇  DB-BBS-system V1.20 by Rapha.