VS 매크로 변환 Json 데이터 형식.
5067 단어 json
데이터 전송을 위한 형식을 사용자 정의합니다. 형식은 다음과 같습니다.
1. 문자열
2. 나무급 구조가 없다.
3. 플래그가 없습니다.
4. 각 객체는, 로 구분됩니다.
5. 각 키 값 쌍은 ":"으로 구분됩니다.
원래 Json: {"Id": 1, "Name": "장삼"}
변환 후 "Id:1, Name: 장 3"
Sub Json2MyStringJson()
Dim strJson As String
Dim ja As String() 'json array
Dim jsa As String() ' json sub array
Dim retVal As New List(Of String)()
Dim pja As String() ' p proced json array
Dim pjsa As String() ' p proced json sub array
strJson = DTE.ActiveDocument.Selection.Text
strJson = strJson.Trim()
If (strJson.StartsWith("{") And strJson.EndsWith("}")) Then
strJson = strJson.Substring(1, strJson.Length - 2).Trim()
ja = strJson.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
For Each a In ja
jsa = a.Trim().Split(":".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
retVal.Add(jsa(0).Trim().Trim(""""c) + ":" + jsa(1).Trim().Trim(""""c))
Next
DTE.ActiveDocument.Selection.Text = """" + String.Join(",", retVal.ToArray()) + """"
Else : MsgBox("Json { } ")
End If
End Sub이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
콘텐츠 SaaS | JSON 스키마 양식 빌더Bloomreach Content를 위한 JSON Form Builder 맞춤형 통합을 개발합니다. 최근 Bloomreach Content SaaS는 내장 앱 프레임워크를 사용하여 혁신적인 콘텐츠 유형 필드를 구축할...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
