harasakih

Option Explicit
'
' memo
'   2024/01/27 2G超のファイルが読み込めない、Getでレコード番号不正になる
'
'

' ----------------------------------------------------------------------------------
' 構造体：Fcntl
'   Integer : 16bit -32,768 〜 +32,767

harasakih

# Perl Common vals
## package名 : このファイルを require して使う時は、package名が必要
## ourで宣言 : myで宣言し、require側でuse warningsをすると、
##   未初期化変数を使っているとWRNになるので、ourで宣言する
# ---------------------------------------------------------
package	CONST;
# ---------------------------------------------------------
our	$OK = 1;
our	$NG = 0;
# LOG-LEVEL

harasakih

形式
ipwild		ip-address/wild-card-mask	ex. 192.168.1.0/0.0.0.255
wild		wild-card-mask				ex. 0.0.0.255
maskl		subnet prefix length		ex. 24

ipinnet(ip As String, net As String) As Boolean
	ipアドレスが、ネットワークアドレス(ip/wild形式)に含まれるか否か

ipwild2broadaddr(ipwild As String) As String
	ip/wildのブロードキャストアドレスを返却

harasakih

Value Filldown PROCESS_ID (\d+)
Value Filldown ROUTER_ID (\d+\.\d+\.\d+\.\d+)
Value Required CODE (\S+)
Value ROUTE (\d+\.\d+\.\d+\.\d+)
Value MASK (\d+)
Value SUCCESSORS (\d+)
Value FD (\d+)
Value TAG (\d+)
# 0.0.0.0 (fdval/adval)
# Connected

harasakih

#!/bin/bash

# --+----1----+----2----+----3----+----4----+----5----+----6
# 変数初期化
# --+----1----+----2----+----3----+----4----+----5----+----6
#
    nHOSTS=100
    nTRIES=500                              # 試行回数
    WAIT=1                                  # インターバル

harasakih

#!/bin/bash

# --+----1----+----2----+----3----+----4----+----5----+----6
# 変数初期化
# --+----1----+----2----+----3----+----4----+----5----+----6
#
    HOSTS=()

    # コマンド文字列
    HOSTS+=("random01.esxi")

harasakih

セル範囲を受け取って、strを返却するVB関数

Function ipfilter1(arg1 As String, Cells As Range) As String
Dim buf As Variant
Dim str As String
Dim i As Integer

 buf = Cells.Value