kei0425

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "OrderedDictionary"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

kei0425

VBArray.toSafeArray = function (jsArray, optionBase) {
    var
    sc = new ActiveXObject("ScriptControl");
    
    function makeSafeArrayVBS(jsArray, optionBase) {
        var ret = []
        ,result;

        ret.push('Function ConvertArray()');
        ret.push('  Dim ar(' + getDimension(jsArray, optionBase) + ')');

kei0425

* {
  margin: 0;
  padding: 0;
  border: 0;
}

table, td, th {
    border: 2px #0000CD solid;
}

kei0425

Imports System.Text.RegularExpressions
Imports System.Runtime.CompilerServices

Module ExtensionModule
    <Extension()>
    Function ToFullString(query As System.Collections.Specialized.NameValueCollection) As String
        Return String.Join(vbCrLf, query.GetKeyValuePairs.OrderBy(Function(x) x.Key).ThenBy(Function(x) x.Value).Select(Function(x) String.Format("{0}={1}", x.Key, x.Value)))
    End Function

    <Extension()>

kei0425

# *.pyxbld コンパイルオプション指定
#def make_ext(modname, pyxfilename):
#    from distutils.extension import Extension
#    ext = Extension(name = modname,
#        sources=[pyxfilename],
#        extra_compile_args=['-msse2'])
#    return ext


cdef extern from "emmintrin.h":

kei0425

Public Class ThisAddIn

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        ' ワークブックアクティブイベント登録
        AddHandler Globals.ThisAddIn.Application.WorkbookActivate, New Excel.AppEvents_WorkbookActivateEventHandler(AddressOf add_handlers_to_book)
    End Sub

    Private Sub add_handlers_to_book(workbook As Excel.Workbook)
        For Each worksheet As Excel.Worksheet In workbook.Worksheets
            If worksheet.Name = "Sheet2" Or worksheet.Name = "Sheet3" Then

kei0425

Public Class ThisAddIn
    Private eventWorksheets As List(Of Excel.Worksheet)

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        ' ワークブックアクティブイベント登録
        AddHandler Globals.ThisAddIn.Application.WorkbookActivate, New Excel.AppEvents_WorkbookActivateEventHandler(AddressOf add_handlers_to_book)
    End Sub

    Private Sub add_handlers_to_book(workbook As Excel.Workbook)
        Me.eventWorksheets = New List(Of Excel.Worksheet)

kei0425

object Main extends App{
    import java.{util => ju}
    import scala.annotation._
    import scala.collection._
    import scala.collection.{mutable => mu}
    import scala.collection.JavaConverters._
    import scala.math._
    
    val sc = new ju.Scanner(System.in)

kei0425

# coding: utf-8
# Here your code !
import math

def prime(n):
    limit = math.sqrt(n)

    def primemain(primelist, remain):
        if len(remain) == 0:
            return primelist

kei0425

const net = require('net');

function searchport(host, port, retry_count, callback) {
    if (retry_count == null) {
        retry_count = 100;
    }
    var socket = new net.Socket();

    return new Promise(
        function (resolve, reject) {