NISUS Archives

July 2011

NISUS@LISTSERV.DARTMOUTH.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: generate unicode text file from NWP rtf file
From:
Kino <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Mon, 11 Jul 2011 03:01:35 +0900
Content-Type:
text/plain
Parts/Attachments:
text/plain (23 lines) 
On 2011-07-08 [+0900 JST], at 8:19 PM, Nobumi Iyanaga wrote:

> Select All
> Copy:Copy Text Only
> $the_data = Read Clipboard
> Write to File $the_data, $newfpath

Alternatively...

	$data = Cast to String $doc.text.copy, true
	Write to File $data, $newPath
	Set Exported Perl Variables 'newPath'
	begin Perl
		if ( -x "/usr/bin/xattr" ) { # if you are running OS X 10.5 or later
			`/usr/bin/xattr -w com.apple.TextEncoding 'UTF-8;134217984' "$newPath"`;
		}
	end

	File.revealPathInFinder $newPath


Kino

ATOM RSS1 RSS2