• 0

[VB/VB .NET] Display two arrays in one textbox


Question

Alright I have a simple problem which I just can't figure out. The application reads information from two text files properly, but I need for both sets of information to be displayed inside of the same text box and side by side not one set of data followed by the other. As I have it now both files are read properly into the arrays and the second set of data is being displayed in the text box.

Below is the code:

Imports Microsoft.VisualBasic.FileIO
Public Class Form1

    Private MovieTitleTextFieldParser As TextFieldParser
    Private MovieProfitTextFieldParser As TextFieldParser

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        'Exit application
        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Instantiate the MovieTitleTextFieldParser and set the delimiters
        Dim MovieTitleFileString As String = "C:\title.txt"
        Try
            MovieTitleTextFieldParser = New TextFieldParser(MovieTitleFileString)
            MovieTitleTextFieldParser.TextFieldType = FieldType.Delimited
            MovieTitleTextFieldParser.SetDelimiters(",")
        Catch
            MessageBox.Show("Unableead the file: " & MovieTitleFileString, "File Error")
        End Try

        'Instantiate the MovieProfitTextFieldParser and set the delimiters
        Dim MovieProfitFileString As String = "C:\boxoffice.txt"
        Try
            MovieProfitTextFieldParser = New TextFieldParser(MovieProfitFileString)
            MovieProfitTextFieldParser.TextFieldType = FieldType.Delimited
            MovieProfitTextFieldParser.SetDelimiters(",")
        Catch
            MessageBox.Show("Unableead the file: " & MovieProfitFileString, "File Error")
        End Try

    End Sub

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

        'Read the movie titles into an array
        Dim title_array() As String 'Must be a string array for delimited fields
        If Not MovieTitleTextFieldParser.EndOfData Then
            title_array = MovieTitleTextFieldParser.ReadFields()
            txtTitleAndProfit.Text = MovieTitleTextFieldParser.ReadToEnd
        End If

        'Read the movie profits into an array
        Dim adjusted_boxoffice_array() As String 'Must be a string array for delimited fields
        If Not MovieProfitTextFieldParser.EndOfData Then
            adjusted_boxoffice_array = MovieTitleTextFieldParser.ReadFields()
            txtTitleAndProfit.Text = MovieProfitTextFieldParser.ReadToEnd
        End If

    End Sub
End Class

Recommended Posts

  • 0
  On 12/04/2010 at 02:11, Crackler said:

Sweet thank you. I just edited the code and it's loading both files into the arrays. Now to figure out how to load both sets of data side by side in the same list box so I can sort them alphabetically or by number. :wacko:

No problem. I am actually working on that as we speak. :) You want both files to be one single item or can it be a list of different items then?

  • 0

Basically one file has names of movies and the second file has profit made by each movie. I need to display the profit of each movie next to its name inside of the listbox. I have the two buttons in there so I can sort the data alphabetically by name of movie or by profit lowest to highest (not coded yet). The loop at the bottom of the code is not the cleanest way to do it (in the way it would look) but it would get the job done I think.

  • 0

You know what is cool about VB when it comes to sorting? :) There is a function that will sort the array alphabetically for you. :) It is Array.Sort(name of array here)

EDIT: Here is the code for adding the second array into the listbox. It isn't side by side yet, but it brings it closer. :)

'Open the box office file
        Try
            MovieProfitStreamReader = New StreamReader(SpecialDirectories.Desktop & "\boxoffice.txt")

            intCounter = 0

            While MovieProfitStreamReader.Peek() <> -1
                ReDim Preserve adjusted_boxoffice_array(intCounter)

                adjusted_boxoffice_array(intCounter) = MovieProfitStreamReader.ReadLine()
                intCounter += 1
            End While

            Me.lstboxMainDisplay.Items.AddRange(adjusted_boxoffice_array)
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try

  • 0

Only problem is that when I sort the arrays all of the data has to stay the same. In other words, the profits have to change along with the movies. When one array is sorted the other has follow suit through each arrays index I would think. Example below:

Movie 1 - Profit 1

Movie 2 - Profit 2

Movie 3 - Profit 3

Sorted:

Movie 3 - Profit 3

Movie 1 - Profit 1

Movie 2 - Profit 2

  On 12/04/2010 at 02:18, winlonghorn said:

You know what is cool about VB when it comes to sorting? :) There is a function that will sort the array alphabetically for you. :) It is Array.Sort(name of array here)

EDIT: Here is the code for adding the second array into the listbox. It isn't side by side yet, but it brings it closer. :)

'Open the box office file
        Try
            MovieProfitStreamReader = New StreamReader(SpecialDirectories.Desktop & "\boxoffice.txt")

            intCounter = 0

            While MovieProfitStreamReader.Peek() <> -1
                ReDim Preserve adjusted_boxoffice_array(intCounter)

                adjusted_boxoffice_array(intCounter) = MovieProfitStreamReader.ReadLine()
                intCounter += 1
            End While

            Me.lstboxMainDisplay.Items.AddRange(adjusted_boxoffice_array)
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try

Yup yup, I had that but removed the Items.Clear line.

  • 0
  On 12/04/2010 at 02:20, Crackler said:

Only problem is that when I sort the arrays all of the data has to stay the same. In other words, the profits have to change along with the movies. When one array is sorted the other has follow suit through each arrays index I would think. Example below:

Movie 1 - Profit 1

Movie 2 - Profit 2

Movie 3 - Profit 3

Sorted:

Movie 3 - Profit 3

Movie 1 - Profit 1

Movie 2 - Profit 2

Ok, I see what you are saying there. I wonder if you could create a multi dimensional array as well so that you could combine both into one array to sort. :)

  • 0
  On 12/04/2010 at 02:23, winlonghorn said:

Ok, I see what you are saying there. I wonder if you could create a multi dimensional array as well so that you could combine both into one array to sort. :)

Has to be two separate arrays. The assignment went as far as to spell out the names of both of the arrays. :(

  • 0
  On 12/04/2010 at 02:24, Crackler said:

Has to be two separate arrays. The assignment went as far as to spell out the names of both of the arrays. :(

Ugg! what a pain lol. Ok, let me give it a bit more thought. :)

EDIT: This link might help out a lot. :) http://msdn.microsoft.com/en-us/library/system.array.sort(VS.71).aspx

  • 0

I believe we are on the right path here:

Imports Microsoft.VisualBasic.FileIO
Imports System.IO
Public Class Form1
    Public Class MyReverserClass
        Implements IComparer

        Function Compare(ByVal x As [Object], ByVal y As [Object]) As Integer _
            Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(y, x)
        End Function
    End Class

    Private windir As String
    Private intCounter As Integer = 0
    Private MovieTitleStreamReader As StreamReader
    Private MovieProfitStreamReader As StreamReader


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        'Exit application
        Me.Close()

    End Sub



    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

        Dim title_array() As String = {""}
        Dim adjusted_boxoffice_array() As String = {""}
        Dim MyComparer = New MyReverserClass()

        'Open the movie title file
        Try
            MovieTitleStreamReader = New StreamReader("\title.txt")
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try


        Dim movietitlereader As StreamReader = _
            New StreamReader(SpecialDirectories.Desktop & "\title.txt")
        Try
            Me.lstboxMainDisplay.Items.Clear()
            While movietitlereader.Peek() <> -1
                ReDim Preserve title_array(intCounter)

                title_array(intCounter) = movietitlereader.ReadLine()
                intCounter += 1
            End While

            ' Me.lstboxMainDisplay.Items.AddRange(title_array)
        Catch
            Me.lstboxMainDisplay.Items.Add("Filempty")
        Finally
            movietitlereader.Close()
        End Try

        'Open the box office file
        Try
            MovieProfitStreamReader = New StreamReader(SpecialDirectories.Desktop & "\boxoffice.txt")

            intCounter = 0

            While MovieProfitStreamReader.Peek() <> -1
                ReDim Preserve adjusted_boxoffice_array(intCounter)

                adjusted_boxoffice_array(intCounter) = MovieProfitStreamReader.ReadLine()
                intCounter += 1
            End While
            Array.Sort(title_array, adjusted_boxoffice_array, MyComparer)
            Me.lstboxMainDisplay.Items.AddRange(title_array)
            Me.lstboxMainDisplay.Items.AddRange(adjusted_boxoffice_array)
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try


        'Dim movieprofitreader As StreamReader = _
        ' New StreamReader(windir & "\boxoffice.txt")
        ' Try
        'Me.lstboxMainDisplay.Items.Clear()
        ' Do 'Until reader.Peek = -1

        'Me.lstboxMainDisplay.Items.Add(movieprofitreader.ReadLine)
        ' Loop Until movieprofitreader.Peek = -1
        '  Catch
        'Me.lstboxMainDisplay.Items.Add("Filempty")
        '  Finally
        'movieprofitreader.Close()
        ' End Try

        'For i = 0 To CType(IIf(title_array.Length < adjusted_boxoffice_array.Length, title_array.Length, adjusted_boxoffice_array.Length), Integer) - 1
        'lstboxMainDisplay.Items.Add = title_array(i) & " - " & adjusted_boxoffice_array(i) & Environment.NewLine
        'Next i

    End Sub
End Class

  • 0
  On 12/04/2010 at 03:10, Crackler said:

Sorry for the wait! Just edited the code and it sorts it backwards alphabetically lol but it's a step forward. I have no idea now how to get the arrays side by side in the listbox. :wacko:

Edit: Switcing (y, x) to (x, y) makes it sort it in the correct order now.

  • 0

Ok, I have the answer for putting it on one item. :) Simply replace the two Me.lstboxMainDisplay.Items.AddRange() lines below Array.Sort() with the following:

For i As Integer = 0 To UBound(title_array) Step 1
                Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
            Next

  • 0
  On 12/04/2010 at 03:33, winlonghorn said:

Ok, I have the answer for putting it on one item. :) Simply replace the two Me.lstboxMainDisplay.Items.AddRange() lines below Array.Sort() with the following:

For i As Integer = 0 To UBound(title_array) Step 1
                Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
            Next

Yes! That worked but the arrays are not in sync. Just have to get the sorting part of it to work as designed and it's set!

  • 0
  On 12/04/2010 at 03:37, Crackler said:

Yes! That worked but the arrays are not in sync. Just have to get the sorting part of it to work as designed and it's set!

Great! Now just change your Array.Sort() function call to look like this:

 Array.Sort(title_array, adjusted_boxoffice_array)

and you are all set.

  • 0

Sweet almost there! One last thing, the sorting is done by buttons so I added the code to the buttons now but they don't work?

Imports Microsoft.VisualBasic.FileIO
Imports System.IO
Public Class Form1
    Dim title_array() As String = {""}
    Dim adjusted_boxoffice_array() As String = {""}

    Public Class SortingClass
        Implements IComparer

        Function Compare(ByVal x As [Object], ByVal y As [Object]) As Integer _
            Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(x, y)
        End Function
    End Class

    Private windir As String
    Private intCounter As Integer = 0
    Private MovieTitleStreamReader As StreamReader
    Private MovieProfitStreamReader As StreamReader


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        'Exit application
        Me.Close()

    End Sub



    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

        Dim MyComparer = New SortingClass()

        'Open the movie title file
        Try
            MovieTitleStreamReader = New StreamReader("\title.txt")
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try


        Dim movietitlereader As StreamReader = _
            New StreamReader(windir & "\title.txt")
        Try
            Me.lstboxMainDisplay.Items.Clear()
            While movietitlereader.Peek() <> -1
                ReDim Preserve title_array(intCounter)

                title_array(intCounter) = movietitlereader.ReadLine()
                intCounter += 1
            End While

            ' Me.lstboxMainDisplay.Items.AddRange(title_array)
        Catch
            Me.lstboxMainDisplay.Items.Add("Filempty")
        Finally
            movietitlereader.Close()
        End Try

        'Open the box office file
        Try
            MovieProfitStreamReader = New StreamReader(windir & "\boxoffice.txt")

            intCounter = 0

            While MovieProfitStreamReader.Peek() <> -1
                ReDim Preserve adjusted_boxoffice_array(intCounter)

                adjusted_boxoffice_array(intCounter) = MovieProfitStreamReader.ReadLine()
                intCounter += 1
            End While
            For i As Integer = 0 To UBound(title_array) Step 1
                Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
            Next
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try

    End Sub

    Private Sub InstructionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstructionsToolStripMenuItem.Click

        MsgBox("This application will load and display movie titles and adjust box office profits for each movie. The data can be sorted either alphabetically or by adjusted gross profit.")

    End Sub

    Private Sub btnSortProfit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSortProfit.Click

        Array.Sort(title_array, adjusted_boxoffice_array)

    End Sub

    Private Sub btnSortAlphabetically_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSortAlphabetically.Click

        Array.Sort(adjusted_boxoffice_array, title_array)

    End Sub
End Class

  • 0
  On 12/04/2010 at 03:43, Crackler said:

Sweet almost there! One last thing, the sorting is done by buttons so I added the code to the buttons now but they don't work?

Imports Microsoft.VisualBasic.FileIO
Imports System.IO
Public Class Form1
    Dim title_array() As String = {""}
    Dim adjusted_boxoffice_array() As String = {""}

    Public Class SortingClass
        Implements IComparer

        Function Compare(ByVal x As [Object], ByVal y As [Object]) As Integer _
            Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(x, y)
        End Function
    End Class

    Private windir As String
    Private intCounter As Integer = 0
    Private MovieTitleStreamReader As StreamReader
    Private MovieProfitStreamReader As StreamReader


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        'Exit application
        Me.Close()

    End Sub



    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

        Dim MyComparer = New SortingClass()

        'Open the movie title file
        Try
            MovieTitleStreamReader = New StreamReader("\title.txt")
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try


        Dim movietitlereader As StreamReader = _
            New StreamReader(windir & "\title.txt")
        Try
            Me.lstboxMainDisplay.Items.Clear()
            While movietitlereader.Peek() <> -1
                ReDim Preserve title_array(intCounter)

                title_array(intCounter) = movietitlereader.ReadLine()
                intCounter += 1
            End While

            ' Me.lstboxMainDisplay.Items.AddRange(title_array)
        Catch
            Me.lstboxMainDisplay.Items.Add("Filempty")
        Finally
            movietitlereader.Close()
        End Try

        'Open the box office file
        Try
            MovieProfitStreamReader = New StreamReader(windir & "\boxoffice.txt")

            intCounter = 0

            While MovieProfitStreamReader.Peek() <> -1
                ReDim Preserve adjusted_boxoffice_array(intCounter)

                adjusted_boxoffice_array(intCounter) = MovieProfitStreamReader.ReadLine()
                intCounter += 1
            End While
            For i As Integer = 0 To UBound(title_array) Step 1
                Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
            Next
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try

    End Sub

    Private Sub InstructionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstructionsToolStripMenuItem.Click

        MsgBox("This application will load and display movie titles and adjust box office profits for each movie. The data can be sorted either alphabetically or by adjusted gross profit.")

    End Sub

    Private Sub btnSortProfit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSortProfit.Click

        Array.Sort(title_array, adjusted_boxoffice_array)

    End Sub

    Private Sub btnSortAlphabetically_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSortAlphabetically.Click

        Array.Sort(adjusted_boxoffice_array, title_array)

    End Sub
End Class

Ok, just add the following below Array.Sort() in each button's click event and then remove it from its original place:

For i As Integer = 0 To UBound(title_array) Step 1
                Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
            Next

  • 0
  On 12/04/2010 at 03:51, Crackler said:

Doesn't work. The data needs to be loaded into the listbox by the Load button and the data sorted by the two Sort buttons.

Ok, let me try again. :)

Ok, this code here should do it:

Imports Microsoft.VisualBasic.FileIO
Imports System.IO
Public Class Form1
    Public Class MyReverserClass
        Implements IComparer

        Function Compare(ByVal x As [Object], ByVal y As [Object]) As Integer _
            Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(x, y)
        End Function
    End Class

    Dim title_array() As String = {""}
    Dim adjusted_boxoffice_array() As String = {""}

    Private windir As String
    Private intCounter As Integer = 0
    Private MovieTitleStreamReader As StreamReader
    Private MovieProfitStreamReader As StreamReader


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        'Exit application
        Me.Close()

    End Sub



    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

        Dim MyComparer = New MyReverserClass()

        'Open the movie title file
        'Try
        'MovieTitleStreamReader = New StreamReader("\title.txt")
        ' Catch ex As Exception
        'MessageBox.Show("Filefound or is invalid.", "Data Error")
        ' End Try


        Dim movietitlereader As StreamReader = _
            New StreamReader(SpecialDirectories.Desktop & "\title.txt")
        Try
            Me.lstboxMainDisplay.Items.Clear()
            While movietitlereader.Peek() <> -1
                ReDim Preserve title_array(intCounter)

                title_array(intCounter) = movietitlereader.ReadLine()
                intCounter += 1
            End While

            ' Me.lstboxMainDisplay.Items.AddRange(title_array)
        Catch
            Me.lstboxMainDisplay.Items.Add("Filempty")
        Finally
            movietitlereader.Close()
        End Try

        'Open the box office file
        Try
            MovieProfitStreamReader = New StreamReader(SpecialDirectories.Desktop & "\boxoffice.txt")

            intCounter = 0

            While MovieProfitStreamReader.Peek() <> -1
                ReDim Preserve adjusted_boxoffice_array(intCounter)

                adjusted_boxoffice_array(intCounter) = MovieProfitStreamReader.ReadLine()
                intCounter += 1
            End While

            For i As Integer = 0 To UBound(title_array) Step 1
                Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
            Next
        Catch ex As Exception
            MessageBox.Show("Filefound or is invalid.", "Data Error")
        End Try


        'Dim movieprofitreader As StreamReader = _
        ' New StreamReader(windir & "\boxoffice.txt")
        ' Try
        'Me.lstboxMainDisplay.Items.Clear()
        ' Do 'Until reader.Peek = -1

        'Me.lstboxMainDisplay.Items.Add(movieprofitreader.ReadLine)
        ' Loop Until movieprofitreader.Peek = -1
        '  Catch
        'Me.lstboxMainDisplay.Items.Add("Filempty")
        '  Finally
        'movieprofitreader.Close()
        ' End Try

        'For i = 0 To CType(IIf(title_array.Length < adjusted_boxoffice_array.Length, title_array.Length, adjusted_boxoffice_array.Length), Integer) - 1
        'lstboxMainDisplay.Items.Add = title_array(i) & " - " & adjusted_boxoffice_array(i) & Environment.NewLine
        'Next i

    End Sub

    Private Sub btnAlphabetic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlphabetic.Click
        Me.lstboxMainDisplay.Items.Clear()

        Array.Sort(title_array, adjusted_boxoffice_array)

        For i As Integer = 0 To UBound(title_array) Step 1
            Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
        Next
    End Sub

    Private Sub btnNumerically_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNumerically.Click
        Me.lstboxMainDisplay.Items.Clear()

        Array.Sort(adjusted_boxoffice_array, title_array)

        For i As Integer = 0 To UBound(title_array) Step 1
            Me.lstboxMainDisplay.Items.Add(title_array(i) & vbTab & adjusted_boxoffice_array(i))
        Next
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        Me.lstboxMainDisplay.Items.Clear()
    End Sub
End Class

  • 0

There was one more part that needed to be added but I ran out of time.

Either way my next course which starts on Tuesday is a continuation of this course so I'll be hanging out here again pretty soon. :laugh:

Thank you again I really appreciate it!

  • 0
  On 12/04/2010 at 04:05, Crackler said:

There was one more part that needed to be added but I ran out of time.

Either way my next course which starts on Tuesday is a continuation of this course so I'll be hanging out here again pretty soon. :laugh:

Thank you again I really appreciate it!

Oh man! Sorry about that! Cool deal about you deciding to hang out here though. :) You are very welcome!

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Chinese? It sounds extremely dangerous. I’ll reconsider buying a Meta Quest 3.
    • - What's your salary? Is it more than $100k a year? - Nah, it's $100 mil a year.
    • Compared to my ear buds which are the size of a matchbox, cover a much broader frequency range, and work everywhere without setup? Yeah, still not buying this as a replacement.
    • Meta's Superintelligence team staffed by 50% Chinese talent, 40% ex-OpenAI by Hamid Ganji Mark Zuckerberg's latest big bet at Meta involves building a team of the best AI superstars in the market to lead the so-called Superintelligence Labs. The goal of this team is to develop AI models that will ultimately lead to Artificial General Intelligence (AGI). AGI refers to an AI model with capabilities comparable to, or even beyond, those of the human brain. Achieving human-level cognitive abilities with an AI model requires substantial investments, as well as hiring the best talent to build such a system. That's why Meta is throwing hundreds of millions of dollars at AI researchers from OpenAI, Apple, and other companies to recruit them for its Superintelligence team. A user on X has now shared a spreadsheet that provides us with some unique insights into Meta's Superintelligence team and the origins of its 44 employees. The leaker claims this information comes from an anonymous Meta employee. The listing claims that 50 percent of the staff at the Superintelligence team are from China, which demonstrates the significant role of Chinese or Chinese-origin researchers in Met's AI efforts. Additionally, 75 percent of these staff hold PhDs, and 70 percent of them work as researchers. Interestingly, 40 percent of the staff are ex-OpenAI employees whom Mark Zuckerberg poached from the maker of ChatGPT. Additionally, 20 percent of Meta's Superintelligence team members come from Google DeepMind, and another 15 percent come from Scale AI, a startup that Meta recently acquired in a $15 billion deal. Another interesting point is that 75 percent of the Superintelligence team are first-generation immigrants. The leaker claims that each of these employees is now earning between $10 million and $100 million per year, although Meta still needs to confirm these substantial figures. However, it has already been reported that Meta is offering up to $100 million in signup bonuses to poach the best AI talent from OpenAI and other rivals. The revelation that half of Meta's Superintelligence team consists of Chinese nationals could trigger concerns within the Trump administration and Congress.
    • From a quick Google it seems 6GHz is optional on 802.11be. Ubiquiti has one, Unifi U7 Lite.
  • Recent Achievements

    • First Post
      nobody9 earned a badge
      First Post
    • One Month Later
      Ricky Chan earned a badge
      One Month Later
    • First Post
      leoniDAM earned a badge
      First Post
    • Reacting Well
      Ian_ earned a badge
      Reacting Well
    • One Month Later
      Ian_ earned a badge
      One Month Later
  • Popular Contributors

    1. 1
      +primortal
      505
    2. 2
      ATLien_0
      207
    3. 3
      Michael Scrip
      206
    4. 4
      Xenon
      138
    5. 5
      +FloatingFatMan
      113
  • Tell a friend

    Love Neowin? Tell a friend!