Visual studio 群組分類

群組分類 visual studio

vsae0624 2020-09-02 18:24:47 ‧ 714 瀏覽

分享至

在VB 2019 需要針對陣列內容(String)去做分類?
程式如下:
Dim data(5) as string
Dim Groop_cont as int
Dim Groop(3) as string

data(1)="OS"
data(2)="OS"
data(3)="OSC"
data(4)="OSC"
data(5)="PWM"

我想可以得到
(1)有幾個一樣的資料? Groop_cont =?(目測是3個但是程式寫法還請指教...)
(2)以及相同的移除，可以得到
Groop(1)="OS"
Groop(2)="OSC"
Groop(3)="PWM"

以上，還請高手幫忙解答一下~~能使用甚麼方式分類

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

japhenchen

iT邦超人 1 級 ‧ 2020-09-03 07:53:55

最佳解答

用Enumerable
你的程式我小改了一點點

Module Module1

    Sub Main()
        Dim data(5) As String

        data(1) = "OS"
        data(2) = "OS"
        data(3) = "OSC"
        data(4) = "OSC"
        data(5) = "PWM"
        Dim groupdata = data.Where(Function(p) p <> "").GroupBy(Function(k) k)
        For Each item In groupdata
            Console.WriteLine(item.Key & "一共出現" & item.Count.ToString & "次")
        Next
        Console.ReadKey()
    End Sub

End Module

輸出

OS一共出現2次
OSC一共出現2次
PWM一共出現1次

太久沒用VB了，很多用法都被C#取代到忘光

回應 2
分享
檢舉

japhenchen iT邦超人 1 級 ‧ 2020-09-03 08:01:29 檢舉

Where(Function(p) p <> "") 目的是把空白字串移除掉

因為VB.net的陣列索引從0開始，你0沒設.....所以會出現空白個體
你如果這樣改，就正常了
data(0) = "x"
data(1) = "OS"
data(2) = "OS"
data(3) = "OSC"
data(4) = "OSC"
data(5) = "PWM"
輸出

x一共出現1次
OS一共出現2次
OSC一共出現2次
PWM一共出現1次

japhenchen iT邦超人 1 級 ‧ 2020-09-03 08:07:09 檢舉

VB的陣列Dim array(n) as String
的n 為索引上界限？忘了

登入發表回應

小魚

iT邦大師 1 級 ‧ 2020-09-02 23:15:48

所以你目前是怎麼做的呢?

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22210 篇

完賽人數

602 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙