[QR] MATMSG形式のメール送信用QR

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(* 使用フォント

San Francisco SF Pro

https://developer.apple.com/fonts/　

*)

# com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

#use framework "Carbon"

use framework "CoreImage"

use scripting additions

property refMe : a reference to current application

property refNSNotFound : a reference to 9.22337203685477E+18 + 5807

#####################

### 設定項目

set strSubject to ("件名をここに") as text

set strBody to ("本文をここに")

#####################

### QRコード保存先　NSPicturesDirectory

set appFileManager to refMe's NSFileManager's defaultManager()

set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSPicturesDirectory) inDomains:(refMe's NSUserDomainMask))

set ocidPicturesDirURL to ocidURLsArray's firstObject()

set ocidSaveDirPathURL to ocidPicturesDirURL's URLByAppendingPathComponent:("QRcode/eMail")

##フォルダ作成

set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

# 777-->511 755-->493 700-->448 766-->502

ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)

set listBoolMakeDir to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error|:(reference)

#####################

### ペーストボード初期化

set appPasteboard to refMe's NSPasteboard's generalPasteboard()

##ペーストボードからテキストを取り出す

set ocidStringData to appPasteboard's stringForType:("public.utf8-plain-text")

if ocidStringData is (missing value) then

  set strDefaultAnswer to "foo@hoge.com" as text

else

  set strDefaultAnswer to (refMe's NSString's stringWithString:(ocidStringData)) as text

end if

#####################

###ダイアログ

tell current application

  set strName to name as text

end tell

####スクリプトメニューから実行したら

if strName is "osascript" then

  tell application "Finder" to activate

else

  tell current application to activate

end if

set aliasIconPath to POSIX file "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/BookmarkIcon.icns" as alias

try

  set objResponse to (display dialog "メールアドレスを入力してください" with title "QRコードを作成します" default answer strDefaultAnswer buttons {"OK", "キャンセル"} default button "OK" cancel button "キャンセル" with icon aliasIconPath giving up after 30 without hidden answer)

on error

log "エラーしました"

return

end try

if true is equal to (gave up of objResponse) then

return "時間切れですやりなおしてください"

end if

if "OK" is equal to (button returned of objResponse) then

  set strText to (text returned of objResponse) as text

else

return "キャンセル"

end if

if strText starts with "mailto" then

  set strQRContents to (strText) as text

else if strText contains "@" then

  set strQRContents to ("" & strText) as text

else

return "メールアドレス専用です"

end if

##############################

###メールアドレスを一旦NSURLにしてからメールアドレスを確定させる

set ocidQRContents to refMe's NSString's stringWithString:(strQRContents)

###改行とタブだけは取っておく

set ocidQRContentsM to refMe's NSMutableString's alloc()'s initWithCapacity:(0)

ocidQRContentsM's setString:(ocidQRContents)

set ocidQRContentsM to ocidQRContentsM's stringByReplacingOccurrencesOfString:("\n") withString:("")

set ocidQRContentsM to ocidQRContentsM's stringByReplacingOccurrencesOfString:("\r") withString:("")

set ocidQRContentsM to ocidQRContentsM's stringByReplacingOccurrencesOfString:("\t") withString:("")

set ocidURL to refMe's NSURL's alloc()'s initWithString:(ocidQRContentsM)

###

set ocidComponent to refMe's NSURLComponents's componentsWithURL:(ocidURL) resolvingAgainstBaseURL:(false)

set strEmailAdd to ocidComponent's |path|() as text

set strURL to ocidURL's absoluteString() as text

###

set strQRstrings to ("MATMSG:TO:" & strURL & ";") as text

#CCとBCCは対応していない様子

# set strQRstrings to (strQRstrings & "CC:qzu04435@nifty.com;") as text

# set strQRstrings to (strQRstrings & "BCC:qzu04435@nifty.com;") as text

###件名が必要な場合

set strQRstrings to (strQRstrings & "SUB:" & strSubject & ";") as text

###本文書き出しが必要な場合

set strQRstrings to (strQRstrings & "BODY:" & strBody & ";") as text

set strQRstrings to (strQRstrings & ";") as text

###保存ファイル名

set strDateNo to doGetDateNo({"yyyyMMddhhmmss", 1})

set strSaveFileName to ("MATMSG" & "." & strEmailAdd & "." & strDateNo & ".png") as text

set ocidSaveFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:(strSaveFileName)

######################################

### 色決め　切り捨ての都合上指定のニア

######################################

tell application "Finder"

  set the listRGB16bitColor to (choose color default color {0, 0, 0, 1}) as list

end tell

##########Color Picker Value 16Bit

set numRcolor16Bit to item 1 of listRGB16bitColor as number

set numGcolor16Bit to item 2 of listRGB16bitColor as number

set numBcolor16Bit to item 3 of listRGB16bitColor as number

set numAcolor16Bit to 65535 as number

##########Standard RGB Value 8Bit

set numRcolor8Bit to numRcolor16Bit / 256 div 1 as number

set numGcolor8Bit to numGcolor16Bit / 256 div 1 as number

set numBcolor8Bit to numBcolor16Bit / 256 div 1 as number

set numAcolor8Bit to numAcolor16Bit / 256 div 1 as number

##########NSColorValue Float

set numRcolorFloat to numRcolor8Bit / 255 as number

set numGcolorFloat to numGcolor8Bit / 255 as number

set numBcolorFloat to numBcolor8Bit / 255 as number

set numAcolorFloat to numAcolor8Bit / 255 as number

####色指定

## 色指定値はこちらを利用

## https://quicktimer.cocolog-nifty.com/icefloe/2023/06/post-d68270.html

###色指定する場合

## set ocidQrColor to refMe's CIColor's colorWithRed:0.101960784314 green:0.752941176471 blue:0.262745098039 alpha:1.0

###

set ocidQrColor to refMe's CIColor's colorWithRed:(numRcolorFloat) green:(numGcolorFloat) blue:(numBcolorFloat) alpha:(numAcolorFloat)

#############################

### 【１】QRバーコード画像生成

#############################

####テキストをNSStringに

set ocidInputString to refMe's NSString's stringWithString:(strQRstrings)

####テキストをUTF8に

set ocidUtf8InputString to ocidInputString's dataUsingEncoding:(refMe's NSUTF8StringEncoding)

####CIQRCodeGenerator初期化

set ocidQRcodeImage to refMe's CIFilter's filterWithName:"CIQRCodeGenerator"

ocidQRcodeImage's setDefaults()

###テキスト設定

ocidQRcodeImage's setValue:ocidUtf8InputString forKey:"inputMessage"

###読み取り誤差値設定L, M, Q, H

ocidQRcodeImage's setValue:"Q" forKey:"inputCorrectionLevel"

###QRコード本体のイメージ

set ocidCIImage to ocidQRcodeImage's outputImage()

-->ここで生成されるのはQRのセルが1x1pxの最小サイズ

##############

### 色の置き換え

### 置き換わる色＝この場合は黒

set ocidBlackColor to refMe's CIColor's colorWithRed:1.0 green:1.0 blue:1.0 alpha:0.0

###CIFalseColorで色を塗ります

set ocidFilterColor to refMe's CIFilter's filterWithName:("CIFalseColor")

ocidFilterColor's setDefaults()

ocidFilterColor's setValue:ocidQrColor forKey:("inputColor0")

ocidFilterColor's setValue:ocidBlackColor forKey:("inputColor1")

ocidFilterColor's setValue:ocidCIImage forKey:("inputImage")

###フィルタをかけた画像をoutputImageから取り出します

set ocidCIImage to ocidFilterColor's valueForKey:("outputImage")

###QRコードの縦横取得

set ocidCIImageDimension to ocidCIImage's extent()

set ocidCIImageWidth to (item 1 of item 2 of ocidCIImageDimension) as integer

set ocidCIImageHight to (item 2 of item 2 of ocidCIImageDimension) as integer

###最終的に出力したいpxサイズ

set numScaleMax to 500

###整数で拡大しないとアレなので↑の値のニアなサイズになります

set numWidth to ((numScaleMax / ocidCIImageWidth) div 1) as integer

set numHight to ((numScaleMax / ocidCIImageHight) div 1) as integer

###↑サイズの拡大縮小する場合はここで値を調整すれば良い

####変換スケール作成-->拡大

set recordScalse to refMe's CGAffineTransform's CGAffineTransformMakeScale(numWidth, numHight)

##変換スケールを適応（元のサイズに元のサイズのスケール適応しても意味ないけど

set ocidCIImageScaled to ocidCIImage's imageByApplyingTransform:(recordScalse)

#######元のセルが1x1pxの最小サイズで出したいときはここで処理

##set ocidCIImageScaled to ocidCIImage

###イメージデータを展開

set ocidNSCIImageRep to refMe's NSCIImageRep's imageRepWithCIImage:(ocidCIImageScaled)

###出力用のイメージの初期化

set ocidNSImageScaled to refMe's NSImage's alloc()'s initWithSize:(ocidNSCIImageRep's |size|())

###イメージデータを合成

ocidNSImageScaled's addRepresentation:(ocidNSCIImageRep)

###出来上がったデータはOS_dispatch_data

set ocidOsDispatchData to ocidNSImageScaled's TIFFRepresentation()

####NSBitmapImageRepに

set ocidQRImageRep to refMe's NSBitmapImageRep's imageRepWithData:(ocidOsDispatchData)

#############################

### 【２】QRコードの背景部

###（ホワイトスペースパディング配慮）

#############################

##画像サイズ

set numQRSize to 520 as integer

##画像生成開始

set ocidBitmapFormat to refMe's NSBitmapFormatAlphaFirst

set ocidColorSpaceName to refMe's NSCalibratedRGBColorSpace

### NSBitmapImageRep

set ocidCodeBaseRep to (refMe's NSBitmapImageRep's alloc()'s initWithBitmapDataPlanes:(missing value) pixelsWide:(numQRSize) pixelsHigh:(numQRSize) bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(ocidColorSpaceName) bitmapFormat:(ocidBitmapFormat) bytesPerRow:0 bitsPerPixel:32)

#############################

### 初期化 CodeBase

refMe's NSGraphicsContext's saveGraphicsState()

###Context

set ocidContext to (refMe's NSGraphicsContext's graphicsContextWithBitmapImageRep:(ocidCodeBaseRep))

###生成された画像でNSGraphicsContext初期化

(refMe's NSGraphicsContext's setCurrentContext:(ocidContext))

###ここが背景色の塗り色

##色を個別に指定する場合 値は0が暗　１が明

set ocidSetColor to (refMe's NSColor's colorWithSRGBRed:(1) green:(1) blue:(1) alpha:(1.0))

ocidSetColor's |set|()

###画像生成

refMe's NSRectFill({origin:{x:0, y:0}, |size|:{width:(numQRSize), height:(numQRSize)}})

####画像作成終了

refMe's NSGraphicsContext's restoreGraphicsState()

#############################

### 【３】QRバーコードパディング処理

### １で作ったQRバーコード画像を

### ２で作った画像にペースト

###（ホワイトスペースパディング配慮）

#############################

###

set numPxWidth to ocidQRImageRep's pixelsWide()

set numPxHight to ocidQRImageRep's pixelsHigh()

###画像合成位置計算パディング配慮

set numPadSize to (numQRSize - numPxWidth) / 2 as integer

#############################

### 初期化 CodeBase

refMe's NSGraphicsContext's saveGraphicsState()

###Context

set ocidContext to (refMe's NSGraphicsContext's graphicsContextWithBitmapImageRep:(ocidCodeBaseRep))

###生成された画像でNSGraphicsContext初期化

(refMe's NSGraphicsContext's setCurrentContext:(ocidContext))

###出来上がった画像にQRバーコードをCompositeSourceOverする

ocidQRImageRep's drawInRect:{origin:{x:(numPadSize), y:(numPadSize)}, |size|:{width:(numPxWidth), Hight:(numPxWidth)}} fromRect:{origin:{x:0, y:0}, |size|:{width:(numPxWidth), height:(numPxHight)}} operation:(refMe's NSCompositeSourceOver) fraction:1.0 respectFlipped:true hints:(missing value)

####画像作成終了

refMe's NSGraphicsContext's restoreGraphicsState()

#############################

### 【４】最終的な出力画像生成

### ArtBoardになる画像の生成

#############################

### 背景　ARTBORD

set ocidBitmapFormat to refMe's NSBitmapFormatAlphaFirst

set ocidColorSpaceName to refMe's NSCalibratedRGBColorSpace

### NSBitmapImageRep

set ocidArtBoardRep to (refMe's NSBitmapImageRep's alloc()'s initWithBitmapDataPlanes:(missing value) pixelsWide:(580) pixelsHigh:(680) bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(ocidColorSpaceName) bitmapFormat:(ocidBitmapFormat) bytesPerRow:0 bitsPerPixel:32)

#############################

### 初期化 ArtBoard

refMe's NSGraphicsContext's saveGraphicsState()

###Context

set ocidContext to (refMe's NSGraphicsContext's graphicsContextWithBitmapImageRep:(ocidArtBoardRep))

###生成された画像でNSGraphicsContext初期化

(refMe's NSGraphicsContext's setCurrentContext:(ocidContext))

###ここが背景色の塗り色

##色を個別に指定する場合 値は0が暗　１が明

set ocidSetColor to (refMe's NSColor's colorWithSRGBRed:(numRcolorFloat) green:(numGcolorFloat) blue:(numBcolorFloat) alpha:(numAcolorFloat))

##　透過の場合

## set ocidSetColor to refMe's NSColor's clearColor()

## 白

## set ocidSetColor to refMe's NSColor's whiteColor()

ocidSetColor's |set|()

###画像生成

refMe's NSRectFill({origin:{x:0, y:0}, |size|:{width:(580), height:(680)}})

####画像作成終了

refMe's NSGraphicsContext's restoreGraphicsState()

#############################

### 【５】QRコードペースト

### ３で作ったパディング済みQRコードを

### ４で作ったArtBoardにペースト

#############################

### 初期化 バーコードを　ocidArtBoardRep　にペースト

refMe's NSGraphicsContext's saveGraphicsState()

###ビットマップイメージ

(refMe's NSGraphicsContext's setCurrentContext:(refMe's NSGraphicsContext's graphicsContextWithBitmapImageRep:(ocidArtBoardRep)))

###画像合成位置計算

###左右位置センタリング

set numLeftPad to ((580 - numQRSize) / 2) as integer

###左右のパディング幅と同じサイズで上部パディング

set numbottomPad to (680 - numQRSize - numLeftPad)

###出来上がった画像にQRバーコードを左右３セル分ずらした位置にCompositeSourceOverする

ocidCodeBaseRep's drawInRect:{origin:{x:(numLeftPad), y:(numbottomPad)}, |size|:{width:numQRSize, Hight:numQRSize}} fromRect:{origin:{x:0, y:0}, |size|:{width:numQRSize, height:numQRSize}} operation:(refMe's NSCompositeSourceOver) fraction:1.0 respectFlipped:true hints:(missing value)

####画像作成終了

refMe's NSGraphicsContext's restoreGraphicsState()

#############################

### 【６】テキスト描画

### ５で生成された画像に対して

### テキスト画像を描画する

#############################

###フォント初期化

set appFontManager to refMe's NSFontManager

set appSharedMaanager to appFontManager's sharedFontManager()

###設定用のレコード

set ocidTextAttr to (refMe's NSMutableDictionary's alloc()'s initWithCapacity:0)

###共通項目

set ocidStyle to refMe's NSParagraphStyle's defaultParagraphStyle

(ocidTextAttr's setObject:(ocidStyle) forKey:(refMe's NSParagraphStyleAttributeName))

###画像の明暗判定

set numColorBD to (numRcolorFloat + numGcolorFloat + numBcolorFloat + numAcolorFloat) as number

log numColorBD

if numColorBD > 3.5 then

  ##明るいバーコード色の時は文字色は黒

  set ocidTextColor to (refMe's NSColor's colorWithSRGBRed:(0) green:(0) blue:(0) alpha:(1.0))

(ocidTextAttr's setObject:(ocidTextColor) forKey:(refMe's NSForegroundColorAttributeName))

  ##文字色黒の時はドロップシャドウを入れる

  set ocidShadow to refMe's NSShadow's alloc()'s init()

  set ocidShadowColor to (ocidTextColor's colorWithAlphaComponent:0.8)

(ocidShadow's setShadowColor:(ocidShadowColor))

(ocidShadow's setShadowOffset:(refMe's NSMakeSize(1, -1)))

(ocidShadow's setShadowBlurRadius:4)

(ocidTextAttr's setObject:(ocidShadow) forKey:(refMe's NSShadowAttributeName))

else

  ##暗いバーコード色の時は文字色白

  set ocidTextColor to (refMe's NSColor's colorWithSRGBRed:(1) green:(1) blue:(1) alpha:(1.0))

(ocidTextAttr's setObject:(ocidTextColor) forKey:(refMe's NSForegroundColorAttributeName))

end if

#############################

###初期化

refMe's NSGraphicsContext's saveGraphicsState()

####NSGraphicsContextは透明アートボード

set ocidContext to (refMe's NSGraphicsContext's graphicsContextWithBitmapImageRep:(ocidArtBoardRep))

###ArtBoardでNSGraphicsContext初期化

(refMe's NSGraphicsContext's setCurrentContext:(ocidContext))

##############

set ocidText to (refMe's NSString's stringWithString:("MATMSG QR"))

set ocidFont to (refMe's NSFont's fontWithName:("Helvetica-Bold") |size|:(52))

(ocidTextAttr's setObject:(ocidFont) forKey:(refMe's NSFontAttributeName))

(ocidTextAttr's setObject:(-1.8) forKey:(refMe's NSKernAttributeName))

set ocidTextOrigin to refMe's NSMakePoint((30), (45))

(ocidText's drawAtPoint:(ocidTextOrigin) withAttributes:(ocidTextAttr))

##############

## set strDrawText to ("mailto:" & strQRContents) as text

set ocidText to (refMe's NSString's stringWithString:(strEmailAdd))

set ocidFont to (refMe's NSFont's fontWithName:("Menlo-Regular") |size|:(18))

(ocidTextAttr's setObject:(ocidFont) forKey:(refMe's NSFontAttributeName))

(ocidTextAttr's setObject:(0) forKey:(refMe's NSKernAttributeName))

set ocidTextOrigin to refMe's NSMakePoint((33), (20))

(ocidText's drawAtPoint:(ocidTextOrigin) withAttributes:(ocidTextAttr))

(*

ここのキャラクターIDは

こちらを参照してください

https://quicktimer.cocolog-nifty.com/icefloe/cat76056068/index.html

*)

set strIconText to (character id 1049430) as text

set ocidText to (refMe's NSString's stringWithString:(strIconText))

set ocidFont to (refMe's NSFont's fontWithName:("SFPro-Bold") |size|:(72))

(ocidTextAttr's setObject:(ocidFont) forKey:(refMe's NSFontAttributeName))

(ocidTextAttr's setObject:(0) forKey:(refMe's NSKernAttributeName))

set ocidTextOrigin to refMe's NSMakePoint((450), (25))

(ocidText's drawAtPoint:(ocidTextOrigin) withAttributes:(ocidTextAttr))

####画像作成終了

refMe's NSGraphicsContext's restoreGraphicsState()

#############################

### 【７】画像データ保存

### ６で生成された画像に対を

### 指定のフォルダに保存する

#############################

####PNG用の圧縮プロパティ

set ocidNSSingleEntryDictionary to refMe's NSDictionary's dictionaryWithObject:true forKey:(refMe's NSImageInterlaced)

#####出力イメージへ変換

set ocidNSInlineData to (ocidArtBoardRep's representationUsingType:(refMe's NSBitmapImageFileTypePNG) |properties|:ocidNSSingleEntryDictionary)

(*

NSBitmapImageFileTypeJPEG

NSBitmapImageFileTypePNG

NSBitmapImageFileTypeGIF

NSBitmapImageFileTypeBMP

NSBitmapImageFileTypeTIFF

NSBitmapImageFileTypeJPEG2000

*)

### 保存

set ocidOption to (refMe's NSDataWritingAtomic)

set boolDone to ocidNSInlineData's writeToURL:(ocidSaveFilePathURL) options:(ocidOption) |error|:(reference)

set aliasSaveFilePath to (ocidSaveFilePathURL's absoluteURL()) as alias

#############################

### 【８】表示

#############################

###Preview で開く

tell application "Preview"

launch

activate

open file aliasSaveFilePath

end tell

###

#####################

### Finderで保存先を開く

set appSharedWorkspace to refMe's NSWorkspace's sharedWorkspace()

set boolDone to appSharedWorkspace's selectFile:(ocidSaveFilePathURL's |path|()) inFileViewerRootedAtPath:(ocidSaveDirPathURL's |path|())

return true

################################

# 日付 doGetDateNo(argDateFormat,argCalendarNO)

# argCalendarNO 1 NSCalendarIdentifierGregorian 西暦

# argCalendarNO 2 NSCalendarIdentifierJapanese 和暦

################################

to doGetDateNo({argDateFormat, argCalendarNO})

  ##渡された値をテキストで確定させて

  set strDateFormat to argDateFormat as text

  set intCalendarNO to argCalendarNO as integer

  ###日付情報の取得

  set ocidDate to current application's NSDate's |date|()

  ###日付のフォーマットを定義（日本語）

  set ocidFormatterJP to current application's NSDateFormatter's alloc()'s init()

  ###和暦　西暦　カレンダー分岐

  if intCalendarNO = 1 then

    set ocidCalendarID to (current application's NSCalendarIdentifierGregorian)

  else if intCalendarNO = 2 then

    set ocidCalendarID to (current application's NSCalendarIdentifierJapanese)

  else

    set ocidCalendarID to (current application's NSCalendarIdentifierISO8601)

  end if

  set ocidCalendarJP to current application's NSCalendar's alloc()'s initWithCalendarIdentifier:(ocidCalendarID)

  set ocidTimezoneJP to current application's NSTimeZone's alloc()'s initWithName:("Asia/Tokyo")

  set ocidLocaleJP to current application's NSLocale's alloc()'s initWithLocaleIdentifier:("ja_JP_POSIX")

  ###設定

ocidFormatterJP's setTimeZone:(ocidTimezoneJP)

ocidFormatterJP's setLocale:(ocidLocaleJP)

ocidFormatterJP's setCalendar:(ocidCalendarJP)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterNoStyle)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterShortStyle)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterMediumStyle)

  # ocidFormatterJP's setDateStyle:(current application's NSDateFormatterLongStyle)

ocidFormatterJP's setDateStyle:(current application's NSDateFormatterFullStyle)

  ###渡された値でフォーマット定義

ocidFormatterJP's setDateFormat:(strDateFormat)

  ###フォーマット適応

  set ocidDateAndTime to ocidFormatterJP's stringFromDate:(ocidDate)

  ###テキストで戻す

  set strDateAndTime to ocidDateAndTime as text

return strDateAndTime

end doGetDateNo

---URLエンコードのサブルーチン

####################################

###### ％エンコード

####################################

on doUrlEncode(argText)

  ##テキスト

  set ocidArgText to refMe's NSString's stringWithString:(argText)

  ##キャラクタセットを指定

  set ocidChrSet to refMe's NSCharacterSet's URLQueryAllowedCharacterSet

  ##キャラクタセットで変換

  set ocidArgTextEncoded to ocidArgText's stringByAddingPercentEncodingWithAllowedCharacters:(ocidChrSet)

  ######## 置換　％エンコードの追加処理

  ###置換レコード

  set recordPercentMap to {|+|:"%2B", |=|:"%3D", |&|:"%26", |$|:"%24"} as record

  ###ディクショナリにして

  set ocidPercentMap to refMe's NSDictionary's alloc()'s initWithDictionary:(recordPercentMap)

  ###キーの一覧を取り出します

  set ocidAllKeys to ocidPercentMap's allKeys()

  ###取り出したキー一覧を順番に処理

  repeat with itemAllKey in ocidAllKeys

    ##キーの値を取り出して

    set ocidMapValue to (ocidPercentMap's valueForKey:(itemAllKey))

    ##置換

    set ocidEncodedText to (ocidArgTextEncoded's stringByReplacingOccurrencesOfString:(itemAllKey) withString:(ocidMapValue))

    ##次の変換に備える

    set ocidArgTextEncoded to ocidEncodedText

  end repeat

  ##テキスト形式に確定

  set strTextToEncode to ocidEncodedText as text

  ###値を戻す

return strTextToEncode

end doUrlEncode

---