Dialog EAFunctions

Home > EA Functions > Common-fx > EA_GetUniqData

EA_GetUniqData

機能説明

指定した配列内からユニークな値を抽出します。

定義

Public Function EA_GetUniqData (

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

) As Boolean

引数

ea_array()

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

ea_str()

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

戻り値

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

使用例

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

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