Dialog EAFunctions

Home > EA Functions > Common-fx > EA_GetUniqInfo

EA_GetUniqInfo

機能説明

指定した配列内からユニークな値とその重複件数を抽出します。

定義

Public Function EA_GetUniqInfo (

ByRef ea_array() As String,
ByRef ea_str() As String
ByRef ea_scnt() As Long

) As Boolean

引数

ea_array()

ユニーク情報の抽出対象なる配列を指定します。

ea_str()

抽出されたユニーク情報を格納する配列を指定します。

ea_scnt()

抽出されたユニーク情報の件数を格納する配列を指定します。

戻り値

抽出成功：(True)が返却されます。
抽出失敗：(False)が返却されます。

使用例

配列内の項目から重複項目を取り除いたユニークな項目と件数を返却します。

                                    
Sub Main()
    Dim ea_array(3) As String
    Dim ea_str() As String
    Dim ea_cnt() As Long
    Dim ea_boole As Boolean
    
    ea_array(0) = "二行目"
    ea_array(1) = "二行目"
    ea_array(2) = "三行目"
    ea_array(3) = "二行目"
    ea_boole = EA_GetUniqInfo(ea_array, ea_str, ea_cnt)
    MsgBox "結果:" & ea_boole & vbCrLf & _
           "配列:" & vbCrLf & EA_ArrayToTxt(ea_str, vbCrLf) & vbCrLf & _
           "件数:" & vbCrLf & EA_ArrayToNum(ea_cnt, vbCrLf)
End Sub