Use files, settings, JSON and the clipboard

{
  "schemaVersion": 1,
  "projectId": "mcbasic-web-service-workbench",
  "name": "ServiceWorkbench",
  "kind": "DesktopApp",
  "language": {
    "dialect": "McBasic1",
    "requireExplicit": true,
    "compare": "Binary",
    "defaultArrayBase": 0
  },
  "application": {
    "bundleIdentifier": "org.mcbasic.web.serviceworkbench",
    "version": "1.0.0",
    "buildNumber": "1",
    "startupFormId": "main",
    "shutdownMode": "OnStartupFormClosed"
  },
  "forms": [
    {
      "id": "main",
      "typeName": "frmMain",
      "layout": "frmMain.form.json",
      "code": "frmMain.bas"
    }
  ],
  "modules": [],
  "classes": [],
  "tests": [],
  "references": [],
  "resources": [],
  "targets": [
    "osx-arm64"
  ],
  "capabilities": []
}

Private Sub Form_Load()
    txtName.Text = CStr(Settings.Get("practice-name", "Ada"))
    txtOutput.Text = "This lesson writes only its own practice file in the app data folder."
End Sub

Private Sub cmdSave_Click()
    Dim clean As String
    clean = Trim$(txtName.Text)
    If Len(clean) = 0 Then
        txtOutput.Text = "Enter a name before saving the preference."
        txtName.SetFocus
        Exit Sub
    End If
    Try
        Settings.Set "practice-name", clean
        txtOutput.Text = "Preference saved. Close and reopen to verify it."
        Log.Info "Practice preference saved."
    Catch failure As McException
        txtOutput.Text = "Preference error: " & failure.Message
    End Try
End Sub

Private Sub cmdFile_Click()
    Dim destination As String
    destination = AppPaths.DataFile("service-workbench-practice.txt")
    Try
        File.WriteText destination, "Practice name: " & txtName.Text & Environment.NewLine
        File.AppendText destination, "Written by the service workbench."
        txtOutput.Text = destination & Environment.NewLine & File.ReadText(destination)
    Catch failure As McException
        txtOutput.Text = "File error " & CStr(failure.Number) & ": " & failure.Message
    End Try
End Sub

Private Sub cmdJson_Click()
    Dim document As JsonValue
    Dim names As JsonValue
    Dim first As String
    Try
        document = Json.Parse("{""names"":[""Ada"",""Grace""],""active"":true}")
        If Not Json.Has(document, "names") Then
            txtOutput.Text = "The document has no names member."
            Exit Sub
        End If
        names = Json.Get(document, "names")
        If Json.Count(names) = 0 Then
            txtOutput.Text = "The list is empty."
            Exit Sub
        End If
        first = CStr(Json.Value(Json.At(names, 0)))
        txtOutput.Text = "First name: " & first & Environment.NewLine & "Count: " & CStr(Json.Count(names))
    Catch failure As McException
        txtOutput.Text = "JSON error: " & failure.Message
    End Try
End Sub

Private Sub cmdCopy_Click()
    Try
        Clipboard.SetText txtOutput.Text
        Log.Info "Practice result copied."
    Catch failure As McException
        txtOutput.Text = "Clipboard error: " & failure.Message
    End Try
End Sub

Option Explicit

Private Sub Form_Load()
    txtName.Text = CStr(Settings.Get("practice-name", "Ada"))
    txtOutput.Text = "This lesson writes only its own practice file in the app data folder."
End Sub

Private Sub cmdSave_Click()
    Dim clean As String
    clean = Trim$(txtName.Text)
    If Len(clean) = 0 Then
        txtOutput.Text = "Enter a name before saving the preference."
        txtName.SetFocus
        Exit Sub
    End If
    Try
        Settings.Set "practice-name", clean
        txtOutput.Text = "Preference saved. Close and reopen to verify it."
        Log.Info "Practice preference saved."
    Catch failure As McException
        txtOutput.Text = "Preference error: " & failure.Message
    End Try
End Sub

Private Sub cmdFile_Click()
    Dim destination As String
    destination = AppPaths.DataFile("service-workbench-practice.txt")
    Try
        File.WriteText destination, "Practice name: " & txtName.Text & Environment.NewLine
        File.AppendText destination, "Written by the service workbench."
        txtOutput.Text = destination & Environment.NewLine & File.ReadText(destination)
    Catch failure As McException
        txtOutput.Text = "File error " & CStr(failure.Number) & ": " & failure.Message
    End Try
End Sub

Private Sub cmdJson_Click()
    Dim document As JsonValue
    Dim names As JsonValue
    Dim first As String
    Try
        document = Json.Parse("{""names"":[""Ada"",""Grace""],""active"":true}")
        If Not Json.Has(document, "names") Then
            txtOutput.Text = "The document has no names member."
            Exit Sub
        End If
        names = Json.Get(document, "names")
        If Json.Count(names) = 0 Then
            txtOutput.Text = "The list is empty."
            Exit Sub
        End If
        first = CStr(Json.Value(Json.At(names, 0)))
        txtOutput.Text = "First name: " & first & Environment.NewLine & "Count: " & CStr(Json.Count(names))
    Catch failure As McException
        txtOutput.Text = "JSON error: " & failure.Message
    End Try
End Sub

Private Sub cmdCopy_Click()
    Try
        Clipboard.SetText txtOutput.Text
        Log.Info "Practice result copied."
    Catch failure As McException
        txtOutput.Text = "Clipboard error: " & failure.Message
    End Try
End Sub