Json array to upper case

Question

1.00/5 (2 votes)

See more:

iam try make all object upper case at json file
how i can do that from array ???

Private Shared Function Serialize(ByVal jObj As JToken) As String
    If jObj.Type = JTokenType.String Then
        Return "" & jObj.Value(Of String)() & ""
    End If

    Dim serializedString As StringBuilder = New StringBuilder()

    For Each item In jObj.Children().ToList

        If item.Type <> JTokenType.Array Then
            Dim jObjItem = item.ToObject(Of JObject)()
            For Each itemKeyPair In jObjItem
                Dim itemname As String = itemKeyPair.Key.ToString
                Dim itemKeyVALUE As String = itemKeyPair.Value.ToString

                If jObjItem.First.Root(itemname).Type = JTokenType.Array Then
                    ' For Each arrval In jObj.Children().First.Root.First(itemname).ToList
                    'MessageBox.Show(arrval.Children.First.Root.First(itemname).ToString)
                    For i As Integer = 1 To jObjItem.First.Count 'arrval.Root.First
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34))
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34) & Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                    Next

                    'Next
                Else
                    serializedString.Append(itemname.ToUpper)
                    serializedString.Append(Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                End If

            Next
        End If
    Next

    Return serializedString.ToString()

What I have tried:

Private Shared Function Serialize(ByVal jObj As JToken) As String
    If jObj.Type = JTokenType.String Then
        Return "" & jObj.Value(Of String)() & ""
    End If

    Dim serializedString As StringBuilder = New StringBuilder()

    For Each item In jObj.Children().ToList

        If item.Type <> JTokenType.Array Then
            Dim jObjItem = item.ToObject(Of JObject)()
            For Each itemKeyPair In jObjItem
                Dim itemname As String = itemKeyPair.Key.ToString
                Dim itemKeyVALUE As String = itemKeyPair.Value.ToString

                If jObjItem.First.Root(itemname).Type = JTokenType.Array Then
                    ' For Each arrval In jObj.Children().First.Root.First(itemname).ToList
                    'MessageBox.Show(arrval.Children.First.Root.First(itemname).ToString)
                    For i As Integer = 1 To jObjItem.First.Count 'arrval.Root.First
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34))
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34) & Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                    Next

                    'Next
                Else
                    serializedString.Append(itemname.ToUpper)
                    serializedString.Append(Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                End If

            Next
        End If
    Next

    Return serializedString.ToString()

Posted 6-Jan-23 10:35am

Member 13788770

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

ADemontis · Answer 1 · 2024-05-13T20:40:00

It looks to me that you are trying to convert the fields, but not the values...

Try this instead:

Private Shared Function Serialize(ByVal jObj As JToken) As String
    If jObj.Type = JTokenType.String Then
        Return "" & jObj.Value(Of String)().ToUpper() & ""
    End If

    Dim serializedString As StringBuilder = New StringBuilder()

    For Each item In jObj.Children().ToList
        If item.Type <> JTokenType.Array Then
            Dim jObjItem = item.ToObject(Of JObject)()
            For Each itemKeyPair In jObjItem
                Dim itemName As String = itemKeyPair.Key.ToString().ToUpper()
                Dim itemValue As String = itemKeyPair.Value.ToString().ToUpper()

                serializedString.Append(Chr(34) & itemName & Chr(34) & ": " & Chr(34) & itemValue & Chr(34) & ", ")
            Next
        Else
            Dim arrayName As String = item.Path.ToString().ToUpper()
            Dim arrayValues As IEnumerable(Of JToken) = item.Values()

            serializedString.Append(Chr(34) & arrayName & Chr(34) & ": [")
            For Each value In arrayValues
                serializedString.Append(Chr(34) & value.ToString().ToUpper() & Chr(34) & ", ")
            Next
            serializedString.Remove(serializedString.Length - 2, 2) ' Rimuovi la virgola e lo spazio aggiunti all'ultimo elemento
            serializedString.Append("], ")
        End If
    Next

    Return serializedString.ToString()
End Function