マクロのタグがつけられたコード一覧

HSP HSPで例外(マクロ)

#define global try %tException %i=0:%i=0:if'%i'
#define global finally %tException if 1
#define global ctype catch(%1) %tException *%o:%1=%o:if %o
#define global throw(%1) %tException %p1=%1:%p2=1:goto*%p0

	mes "--------------------"

	try {
		mes "--try1"
		throw 1234567
		// throw "Test"
	} catch(e) {
		mes "--catch1 " + e
	} finally {
		mes "--finally1"
	}

	mes "--------------------"

	try {
		mes "--try2"
		// throw 1234567
		throw "Test"
	} catch(e) {
		mes "--catch2 " + e
	} finally {
		mes "--finally2"
	}

	mes "--------------------"

	try {
		mes "--try3"
		// throw 1234567
		// throw "Test"
	} catch(e) {
		mes "--catch3 " + e
	} finally {
		mes "--finally3"
	}

	mes "--------------------"

	try {
		mes "--try4"
		throw 1.234567
	} catch(e) {
		mes "--catch4 " + e
	}

	mes "--------------------"

	try {
		mes "--try5"
	} catch(e) {
		mes "--catch5 " + e
	}

	mes "--------------------"

	stop

JavaScript HSP3コンパイラfor EmEditorマクロ

//
// HSP3 コンパイラ for EmEditor マクロ
//
// compilerName にHSP3スクリプトエディタのパスを指定して使用してください。
//
var compilerName = "C:\\hsp332\\hsed3.exe";

// フルパスファイル名
strName = document.FullName;
// 拡張子名
ExtName = document.Name.replace(/^.*\./ , "").toUpperCase();

// 拡張子がHSPのものである場合、コンパイル実行
if ((ExtName == "HSP") || (ExtName == "AS")) {

	// 編集中のファイルのパスを取得
	document.CopyFullName();

	// HSP3スクリプトエディタを起動
	WshShell = new ActiveXObject( "WScript.Shell" );
	WshShell.Run( compilerName );
	// 「外部ファイル実行」を使ってコンパイル
	Sleep( 1000 );
	WshShell.SendKeys( "{F10}" );
	Sleep( 10 );
	WshShell.SendKeys( "^V" );
	Sleep( 10 );
	WshShell.SendKeys( "{TAB}" );
	Sleep( 10 );
	WshShell.SendKeys( "{-}" );	// 「オブジェクトファイルのみ作成」をOFF
	Sleep( 10 );
	WshShell.SendKeys( "{ENTER}" );
}

TEXT excelデータをplistに変換用エクセルVBA

Sub main()

    'iOS用でエクセルファイルをplistで読み込むためのExcelVBAファイル

    'xml用変数
    Dim xmlDoc          As MSXML.DOMDocument                'XMLドキュメント
    Dim xmlPI           As IXMLDOMProcessingInstruction     'XML宣言
    Dim node(4)         As IXMLDOMNode                      '要素
    Dim plist_node(2)   As IXMLDOMNode                      '要素
    Dim attr            As MSXML.IXMLDOMAttribute           '属性

    'セルからのデータ取得用変数
    Dim file_name       As Variant  'File_Name
    Dim xml_des         As Variant  'XML_Description
    Dim name            As Variant  'Marker_Name
    Dim snip            As Variant  'Snippet
    Dim des             As Variant  'Marker_description
    Dim lat             As Variant  'latitude
    Dim lng             As Variant  'longitude

    Dim str             As String   'HTML記述
    Dim imgWidh         As String   '画像の横幅

    Dim max             As Integer  '読み込む店舗数の最大値
    Dim j               As Integer  'ForLoop Nest用
    Dim jMax            As Integer  '横方向ループ処理

    '変数の初期化
    max = 21
    j = 1
    jMax = 3
    imgWidth = " width=" & 3
    imgWidth02 = " width=" & 5

    'table用変数
    'border = " border=" & "0"
    'cellspacing = " cellspacing=" & "0"
    cellpadding = " cellpadding=" & "1"

   'XMLドキュメントを作成します。
    Set xmlDoc = New MSXML.DOMDocument

    'XML宣言を追加します。
    Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))

    'XML宣言を追加します。
    Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("plist", "version=""1.0"""))

    '<dict>要素の宣言を追加します。
    Set node(1) = xmlDoc.appendChild(xmlDoc.createNode(NODE_ELEMENT, "dict", ""))

    For i = 2 To max '=125
        des01 = Cells(i, j)     'NSArrayの中身(オブジェクト) : Cell(行,列)
        str = des01

        If i = 2 Then
            '<key>要素を追加します。
            Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "key", ""))
             node(2).Text = Cells(1, j)
            '<array>要素を追加します。
            Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "array", ""))
        Else
        End If

        'dictionary要素ここから------------
        '<string>要素を追加します。

        Set node(3) = node(2).appendChild(xmlDoc.createNode(NODE_ELEMENT, "string", ""))
        node(3).Text = str
        'ここまで------------

        'ネストここから------------
        If i = max Then
            i = 1

            If j < jMax Then
                j = j + 1
            Else
                i = max
            End If
        Else
        End If
        '----------------------------------

    Next

    'XML
    'ドキュメントの出力
    xmlDoc.Save ("\\vmware-host\Shared Folders\デスクトップ\\popup_db.xml")

End Sub

よく投稿されているコード

タグ

最近投稿されたコード