| |
いつもお世話になっております。
下記の文字列Ａを文字列Ｂとして出力したいのですが、
上手くいきません。
どなたかアドバイス頂ける方、ご教授願えませんでしょうか？
文字列Ａ：N20,(Z-2.4),N20,(Z-5.0),N30,(Z-2.4),N30,(Z-5.0)
文字列Ｂ：N20,(Z-5.0),N30,(Z-5.0)
規則は、それぞれのﾅﾝﾊﾞｰの最大マイナス値になります。
N20の最大ﾏｲﾅｽは(Z-5)で、N30の最大ﾏｲﾅｽも(Z-5)なので、
文字列Ｂこれになります。
以前も皆様に教えていただき、現状は下記のｺｰﾄﾞにしていますが、
現状だとN20(Z-2.4),N30(Z-5.0)と出力されてしまいます。
Private Sub CommandButton1_Click()
Dim isy As Long
Dim m1Dic As Object
Dim v As Variant
Dim tmp As String
Dim B As String
tmp = "N20,(Z-2.4),N20,(Z-5.0),N30,(Z-2.4),N30,(Z-5.0)"
v = Split(tmp, ",")
Set m1Dic = CreateObject("Scripting.Dictionary")
For isy = UBound(v) To LBound(v) Step -1
If Not IsEmpty(v(isy)) Then
If Not m1Dic.Exists(v(isy)) Then
B = v(isy) & "," & B
m1Dic(v(isy)) = v(isy)
End If
End If
Next
MsgBox B
Set m1Dic = Nothing
End Sub
|
|
なた
- 07/5/9(水) 16:12 -
