カミュプリィの雑多なメモ

タグ: 言語比較

  • [言語比較]StrToken : 区切記号で区切られた文字値の一部を拾う

    [言語比較]StrToken : 区切記号で区切られた文字値の一部を拾う

    Lotus Script 言語

    • StrToken (文字値, 区切記号, 場所)
    • StrToken (文字値, 区切記号, 場所, 比較方法)

    場所
    0 のとき 1 とみなされます
    0 より大きいとき、左から何番目か？
    0 より小さいとき、右から何番目か？

    比較方法
    0 = 大文字小文字、全角半角を区別します
    1 = 大文字小文字を区別しません
    4 = 全角半角を区別しません
    5 = 大文字小文字、全角半角を区別しません
    　※規定は 0 ですが、規定を Option Compare で変更することができます

    例
    えおか = StrToken ({あいう,えおか,きくけ}, {,}, 2)

    Lotus 式言語

    • @Word (文字値; 区切記号; 場所);

    場所
    0 のとき 1 とみなされます
    0 より大きいとき、左から何番目か？
    0 より小さいとき、右から何番目か？

  • [言語比較]ArrayUnique : 配列から重複を取り除く

    [言語比較]ArrayUnique : 配列から重複を取り除く

    Lotus Script 言語

    • ArrayUnique (１次元配列)
    • ArrayUnique (１次元配列, 比較方法)

    比較方法
    0 = 大文字小文字、全角半角を区別します
    1 = 大文字小文字を区別しません
    4 = 全角半角を区別しません
    5 = 大文字小文字、全角半角を区別しません
    　※規定は 0 ですが、規定を Option Compare で変更することができます
    　※配列が文字列のときに比較方法を選択できます

    Lotus 式言語

    • @Unique (配列)
      　※パラメータなしの @Unique は、呼び出すたびに異なる文字列を返します

    比較方法
    　※大文字小文字を区別します

  • [言語比較]Call ： 関数を呼ぶ

    [言語比較]Call ： 関数を呼ぶ

    Lotus Script 言語

    （） は省略できることが多いです
    Call を省略するときは （） も省略します
    Call だけ省略し （） を付けると、意味が変わります
    次のとおり色々な書き方ができます

    受け渡し値がないとき

    • Call 関数名 （）
    • Call 関数名
    • 戻り値 ＝ 関数名 （）
    • 戻り値 ＝ 関数名
    • 関数名

    受け渡し値があるとき（関数側の ByVal/ByRef 設定どおり）

    • Call 関数名 （受け渡し値）
    • Call 関数名 受け渡し値
    • 戻り値 ＝ 関数名 （受け渡し値）
    • 関数名 受け渡し値

    これはエラーになります

    • 戻り値 ＝ 関数名 受け渡し値

    受け渡し値があるとき（常に ByVal を強制）

    • 関数名 （受け渡し値） ’ Call を省略して （） を付けます

    VbScript 言語

    Call を付けるときは （） も付けます
    Call を省略するときは （） も省略します
    Call だけ省略し （） を付けると、意味が変わります
    次のとおり色々な書き方ができます

    受け渡し値がないとき

    • Call 関数名 （）
    • 戻り値 ＝ 関数名 （）
    • 関数名

    受け渡し値があるとき（関数側の ByVal/ByRef 設定どおり）

    • 戻り値 ＝ 関数名 （受け渡し値）
    • Call 関数名 （受け渡し値）
    • 関数名 受け渡し値

    受け渡し値があるとき（常に ByVal を強制）

    • 関数名 （受け渡し値） ’ Call を省略して （） を付けます

    クラスの値を受け渡すと動作が変わります（アクセス権がどうの）

    クラス名.パラメータ ＝ 値
関数名 （クラス名.パラメータ） ’ クラス名.パラメータの値は変化しません
    docs.microsoft.com
    https://docs.microsoft.com/en-us/previous-versions//ee478101%28v=vs.85%29?redirectedfrom=MSDN#argument-in-a-class
  • [言語比較]New ： クラスからオブジェクトをつくる

    [言語比較]New ： クラスからオブジェクトをつくる

    New ： クラスからオブジェクトをつくります

    Lotus Script 言語

    • Set 変数 ＝ New クラス名 （）
    • Set 変数 ＝ New クラス名 （値）
    • Set 変数 ＝ New クラス名
      　※最初に実行される New 関数は値を受け取ることができます
      　※New クラス名へ値を渡さないときは括弧を省略できます

    VbScript 言語

    • Set 変数 ＝ New クラス名
      　※最初に実行される Class_Initialize 関数は値を受け取ることができません
      　※クラス名のうしろに括弧をつけるとエラーになります

  • [言語比較]型名を調べる

    [言語比較]型名を調べる

    値の型名を調べます

    C#
    string 型名 = 値.GetType().FullName;
    Visual Basic
    型名 = Microsoft.VisualBasic.TypeName(値) // 戻り値はString
    Lotus Script 言語
    型名 = Typename(値) // 戻り値はString
  • [言語比較]数値が範囲に納まるか

    [言語比較]数値が範囲に納まるか

    値が範囲内に収まるか否かを確認します

    C#

    ↓戻り値がTrueなら範囲に収まる、Falseなら収まらないとしています。型はintやdoubleなどにします

    bool 関数名(型 下限, 型 上限, 型 値)
{
	if (下限 > 上限)
	{
		型 一時的 = 下限;
		下限 = 上限;
		上限 = 一時的;
	}
	if (下限 > 値)
	{
		return false;
	}
	if (上限 < 値)
	{
		return false;
	}
	return true;
}
    Lotus Script 言語

    ↓戻り値がTrueなら範囲に収まる、Falseなら収まらないとしています。型はLongやDoubleなどにします

    Function 関数名 (下限 As 型, 上限 As 型, 値 As 型) As Boolean
	関数名 = False
	If 値 > 上限 Then
		Exit Function
	Elseif 値 < 下限 Then
		Exit Function
	End If
	関数名 = True
End Function

    　また Select を使って書くこともできます↓

    Function 関数名 (下限 As 型, 上限 As 型, 値 As 型) As Boolean
	関数名 = False
	Select Case 値
		Case Is > 上限
			Exit Function
		Case Is < 下限
			Exit Function
	End Select
	関数名 = True
End Function