Weiter zum Inhalt
  • Home
  • Aktuell
  • 0 Ungelesen 0
  • Kategorien
  • Unreplied
  • Beliebt
  • GitHub
  • Docu
  • Hilfe
Skins
  • Hell
  • Brite
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dunkel
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Standard: (Kein Skin)
  • Kein Skin
Einklappen
ioBroker Logo

Community Forum

donate donate
  1. ioBroker Community Home
  2. Deutsch
  3. Skripten / Logik
  4. Blockly + Javascripte aus einer script.json extrahieren

NEWS

  • Mitmachen: Sprich „ioBroker“ ein – für ein lokales Aktivierungswort
    BluefoxB
    Bluefox
    2
    1
    139

  • Neuer Blogbeitrag: KI in ioBroker, vom Helfer im Admin bis zum eigenen Smart Assistant
    BluefoxB
    Bluefox
    4
    1
    150

  • Neues Video: Der KI-Assistent im ioBroker Admin
    BluefoxB
    Bluefox
    7
    1
    212

Blockly + Javascripte aus einer script.json extrahieren

Geplant Angeheftet Gesperrt Verschoben Skripten / Logik
24 Beiträge 8 Kommentatoren 2.0k Aufrufe 8 Beobachtet
  • Älteste zuerst
  • Neuste zuerst
  • Meiste Stimmen
Antworten
  • In einem neuen Thema antworten
Anmelden zum Antworten
Dieses Thema wurde gelöscht. Nur Nutzer mit entsprechenden Rechten können es sehen.
  • Michael SchmittM
    Michael SchmittM
    Michael Schmitt
    schrieb am zuletzt editiert von Michael Schmitt
    #6

    .............................

    1 Antwort Letzte Antwort
    0
    • Michael SchmittM
      Michael SchmittM
      Michael Schmitt
      schrieb am zuletzt editiert von Michael Schmitt
      #7

      Dann stell ich das mal hier rein. Falls nicht erwünscht dann löschen.

      1 Antwort Letzte Antwort
      0
      • D
        D
        dodi666
        schrieb am zuletzt editiert von dodi666
        #8

        Sehr cool, probiere ich heute Abend mal aus. Aber gibt es dafür nicht auch einen Adapter?
        test-adapter-script-restore

        Michael SchmittM 1 Antwort Letzte Antwort
        1
        • D dodi666

          Sehr cool, probiere ich heute Abend mal aus. Aber gibt es dafür nicht auch einen Adapter?
          test-adapter-script-restore

          Michael SchmittM
          Michael SchmittM
          Michael Schmitt
          schrieb am zuletzt editiert von Michael Schmitt
          #9

          @dodi666 sagte:

          Sehr cool, probiere ich heute Abend mal aus. Aber gibt es dafür nicht auch einen Adapter?

          Ja gibt es, aber das wird man ja nicht sooo oft brauchen (hoffe ich) und dann möchte ich mir nicht extra einen Adapter installieren. Das Tool sollte dafür reichen. (für meine Zwecke)

          fuzzy1955F 1 Antwort Letzte Antwort
          0
          • David G.D
            David G.D
            David G.
            schrieb am zuletzt editiert von David G.
            #10

            Ich habe aktuell einen Adapter für das Thema im Latest.

            Denke, dass er bald im stable ankommen wird.
            https://forum.iobroker.net/topic/84506/test-adapter-script-restore-v0.1.11

            Aber auch ein Cooler Ansatz für Windows User.

            EDIT

            Oh, wurde oben ja schon drauf hingewiesen...

            @Michael-Schmitt sagte:

            Ja gibt es, aber das wird man ja nicht sooo oft brauchen (hoffe ich) und dann möchte ich mir nicht extra einen Adapter installieren. Das Tool sollte dafür reichen. (für meine Zwecke)

            Ich hab mir schon oft Scripte zerschossen, weil ich vergessen hab eine Kopie zu erstellen 😂

            Zeigt eure Lovelace-Visualisierung klick
            (Auch ideal um sich Anregungen zu holen)

            Meine Tabellen für eure Visualisierung klick

            1 Antwort Letzte Antwort
            0
            • Michael SchmittM Michael Schmitt

              @dodi666 sagte:

              Sehr cool, probiere ich heute Abend mal aus. Aber gibt es dafür nicht auch einen Adapter?

              Ja gibt es, aber das wird man ja nicht sooo oft brauchen (hoffe ich) und dann möchte ich mir nicht extra einen Adapter installieren. Das Tool sollte dafür reichen. (für meine Zwecke)

              fuzzy1955F
              fuzzy1955F
              fuzzy1955
              schrieb am zuletzt editiert von
              #11

              @Michael-Schmitt sagte:

              Das Tool sollte dafür reichen

              Hi Michael,

              dein Tool für Windows eignet sich hervorragend zum Ansehen und Herauskopieren von Skripts bzw. -teilen aus Backups. Ich hab's ausprobiert. Danke für deine Ideen!

              Gruß, Fuzzy

              Smart-Home-Automation unter IOB auf RASPI5, 16GB RAM, 50GB SSD, MariaSQL, VIS-2.
              10 kWp PV-Module, 2 x Deye SUN 10k, 3 x MeritSun LFP-Akku 10 kWh, 2 x Wallboxen 11 kW.
              Pelletsheizung, Strommessung, 4 x Rauchmelder, Garagentorsteuerung, Gartenbewässerung.

              1 Antwort Letzte Antwort
              1
              • Michael SchmittM
                Michael SchmittM
                Michael Schmitt
                schrieb am zuletzt editiert von
                #12

                Hi, gern geschehen. Freu mich wenn es nützlich ist ;)

                1 Antwort Letzte Antwort
                0
                • Michael SchmittM
                  Michael SchmittM
                  Michael Schmitt
                  schrieb am zuletzt editiert von Michael Schmitt
                  #13

                  Hier die neueste Version

                  ioBroker_Script_Extractor.ps1

                  Add-Type -AssemblyName System.Windows.Forms
                  Add-Type -AssemblyName System.Drawing
                  Add-Type -AssemblyName System.Web
                  Add-Type -AssemblyName System.IO.Compression
                  Add-Type -AssemblyName System.IO.Compression.FileSystem
                  
                  $so = "C:\iobroker_Script_recover"
                  $jp = ""
                  $tmp = Join-Path $so "temp_extract"
                  
                  try {
                      # 1. Dateifenster beim Start öffnen
                      $fd = New-Object System.Windows.Forms.OpenFileDialog
                      $fd.InitialDirectory = if (Test-Path $so) { $so } else { [Environment]::GetFolderPath("Desktop") }
                      $fd.Filter = "ioBroker Dateien (*.json;*.tar.gz)|*.json;*.tar.gz"
                      $fd.Title = "Bitte waehle deine script.json ODER eine ioBroker .tar.gz Datei aus"
                  
                      if ($fd.ShowDialog() -ne [System.Windows.Forms.DialogResult]::OK) { exit }
                      $gewaehlteDatei = $fd.FileName
                  
                      # Wenn eine .tar.gz ausgewählt wurde, entpacken im Speicher
                      if ($gewaehlteDatei.ToLower().EndsWith(".tar.gz")) {
                          if (Test-Path $tmp) { Remove-Item $tmp -Recurse -Force -EA SilentlyContinue }
                          New-Item -ItemType Directory -Force -Path $tmp | Out-Null
                          
                          try {
                              $inFile = New-Object System.IO.FileInfo($gewaehlteDatei)
                              $gz = New-Object System.IO.Compression.GZipStream($inFile.OpenRead(), [System.IO.Compression.CompressionMode]::Decompress)
                              
                              $tarPath = Join-Path $tmp "temp_backup.tar"
                              $tarOut = [System.IO.File]::Create($tarPath)
                              $gz.CopyTo($tarOut)
                              $tarOut.Close()
                              $gz.Close()
                              
                              $ts = [System.IO.File]::OpenRead($tarPath)
                              $buf = New-Object byte[] 512
                              
                              while ($ts.Read($buf, 0, 512) -eq 512) {
                                  $name = [System.Text.Encoding]::ASCII.GetString($buf, 0, 100).Trim(([char]0))
                                  $szStr = [System.Text.Encoding]::ASCII.GetString($buf, 124, 12).Trim()
                                  $sz = 0
                                  if ($szStr) { $sz = [Convert]::ToInt64($szStr, 8) }
                                  
                                  if ($name.ToLower().EndsWith("script.json")) {
                                      $outStream = [System.IO.File]::Create((Join-Path $tmp "script.json"))
                                      $rem = $sz
                                      $dBuf = New-Object byte[] 512
                                      while ($rem -gt 0) {
                                          $read = 512
                                          if ($rem -lt 512) { $read = $rem }
                                          [void]$ts.Read($dBuf, 0, 512)
                                          $outStream.Write($dBuf, 0, $read)
                                          $rem -= 512
                                      }
                                      $outStream.Close()
                                      $jp = Join-Path $tmp "script.json"
                                      break
                                  } else { 
                                      if ($sz -gt 0) { 
                                          $blocks = [Math]::Ceiling($sz / 512)
                                          [void]$ts.Seek(($blocks * 512), [System.IO.SeekOrigin]::Current) 
                                      } 
                                  }
                              }
                              $ts.Close()
                          } catch {}
                      } else {
                          $jp = $gewaehlteDatei
                      }
                  
                      if (-not $jp -or -not (Test-Path $jp)) { exit }
                  
                      $raw = Get-Content $jp -Raw -Encoding UTF8
                      if ([string]::IsNullOrWhiteSpace($raw)) { exit }
                      $json = ConvertFrom-Json $raw
                      $skriptListe = [System.Collections.Generic.List[Object]]::new()
                  
                      function Get-SichererBlocklyXml ([string]$sourceCode) {
                          if ([string]::IsNullOrWhiteSpace($sourceCode)) { return "" }
                          if ($sourceCode -match '//([A-Za-z0-9+/=%]{50,})\s*$') {
                              try {
                                  $xml = [System.Web.HttpUtility]::UrlDecode([Text.Encoding]::UTF8.GetString([Convert]::FromBase64String($Matches[1])))
                                  if ($xml -match '<xml') { return ($xml -replace '><', ">`r`n<").Trim() }
                              } catch {}
                          }
                          if ($sourceCode -match '(?s)(<xml.*?</xml>)') { return ($Matches[1] -replace '><', ">`r`n<").Trim() }
                          return ""
                      }
                  
                      function Add-SkriptToList ([string]$id, $obj) {
                          if (-not $obj) { return }
                          if ($obj.type -match "channel|folder") { return }
                          $parts = ($id -replace '^script\.js\.(common\.|global\.)?', '').Split('.')
                          $p = "Hauptordner"
                          if ($parts.Count -gt 1) { $p = $parts[0..($parts.Count-2)] -join '/' }
                          $src = ""
                          if ($obj.common -and $obj.common.source) { $src = $obj.common.source }
                          $en = $true
                          if ($obj.common -and $obj.common.enabled -ne $null) { $en = $obj.common.enabled }
                          $xml = Get-SichererBlocklyXml -sourceCode $src
                          $typText = "JavaScript"
                          if ($xml) { $typText = "Blockly" }
                          $statText = "Deaktiviert"
                          if ($en) { $statText = "Aktiv" }
                          $skriptListe.Add([PSCustomObject]@{
                              Name      = $parts[-1]
                              Pfad      = $p
                              Internal  = $id
                              JsSource  = $src
                              XmlSource = $xml
                              Typ       = $typText
                              Status    = $statText
                          })
                      }
                  
                      if ($json.PSObject.Properties.Name -contains "objects") {
                          foreach ($p in $json.objects.PSObject.Properties) { if ($p.Name -like "script.js.*") { Add-SkriptToList -id $p.Name -obj $p.Value } }
                      } else { 
                          foreach ($p in $json.PSObject.Properties) { if ($p.Name -like "script.js.*") { Add-SkriptToList -id $p.Name -obj $p.Value } } 
                      }
                      if ($skriptListe.Count -eq 0) { exit }
                  
                      function Update-Grid {
                          $filterText = $txtSearch.Text.Trim()
                          $ausTyp = $cmbType.SelectedItem.ToString()
                          $suchenInCode = $rbSearchDp.Checked
                          
                          $filtered = $skriptListe | Where-Object { 
                              if ([string]::IsNullOrWhiteSpace($filterText)) {
                                  $true
                              } else {
                                  if ($suchenInCode) {
                                      # Durchsucht JavaScript-Quellcode und Blockly-XML nach dem Datenpunkt/Begriff
                                      $_.JsSource.ToLower().Contains($filterText.ToLower()) -or 
                                      ($_.XmlSource -and $_.XmlSource.ToLower().Contains($filterText.ToLower()))
                                  } else {
                                      # Standard-Suche nach Name oder Pfad
                                      $_.Name.ToLower().Contains($filterText.ToLower()) -or 
                                      $_.Pfad.ToLower().Contains($filterText.ToLower())
                                  }
                              }
                          }
                          
                          if ($chkHide.Checked) { 
                              $filtered = $filtered | Where-Object { $_.Status -eq "Aktiv" } 
                          }
                          if ($ausTyp -eq "Nur Blockly") { 
                              $filtered = $filtered | Where-Object { $_.Typ -eq "Blockly" } 
                          }
                          elseif ($ausTyp -eq "Nur JavaScript") { 
                              $filtered = $filtered | Where-Object { $_.Typ -eq "JavaScript" } 
                          }
                          
                          $dt = New-Object System.Data.DataTable
                          [void]$dt.Columns.AddRange(@("Name","ioBroker-Pfad","Typ","Status","InternalID"))
                          foreach ($item in $filtered) { [void]$dt.Rows.Add($item.Name, $item.Pfad, $item.Typ, $item.Status, $item.Internal) }
                          $dgv.DataSource = $dt
                          if ($dgv.Columns["InternalID"]) { $dgv.Columns["InternalID"].Visible = $false }
                          
                          $modusText = if ($suchenInCode) { "Treffer für Datenpunkt/Code" } else { "Gefundene Skripte" }
                          $lblCount.Text = "$modusText (aktueller Filter): " + $filtered.Count
                          $lblPrev.Text = "Code-Vorschau (0 Skripte ausgewählt):"
                      }
                  
                      function Start-ScriptExport ([string]$modus) {
                          $ausIDs = @()
                          if ($modus -eq "all") { 
                              foreach ($row in $dgv.Rows) { 
                                  if ($row.Cells["InternalID"].Value) { $ausIDs += [string]$row.Cells["InternalID"].Value }
                              } 
                          } else { 
                              if ($dgv.SelectedRows.Count -eq 0) { return }
                              foreach ($row in $dgv.SelectedRows) { 
                                  if ($row.Cells["InternalID"].Value) { $ausIDs += [string]$row.Cells["InternalID"].Value }
                              } 
                          }
                          
                          $folderDialog = New-Object System.Windows.Forms.FolderBrowserDialog
                          if ($folderDialog.ShowDialog() -ne [System.Windows.Forms.DialogResult]::OK) { return }
                          
                          $root = Join-Path $folderDialog.SelectedPath ("ioBroker_Backup_" + (Get-Date -Format "yyyy-MM-dd_HH-mm"))
                          New-Item -ItemType Directory -Force -Path $root | Out-Null
                          
                          $utf8NoBom = New-Object System.Text.UTF8Encoding $false
                  
                          foreach ($targetID in $ausIDs) {
                              $scriptData = $skriptListe | Where-Object { $_.Internal -eq $targetID }
                              if (-not $scriptData) { continue }
                              $folder = $root
                              if ($scriptData.Pfad -ne "Hauptordner") { $folder = Join-Path $root ($scriptData.Pfad -replace '/', '\') }
                              if ($scriptData.Status -eq "Deaktiviert") { $folder = Join-Path $folder "_DEAKTIVIERT" }
                              New-Item -ItemType Directory -Force -Path $folder | Out-Null
                              
                              if ($scriptData.Typ -eq "Blockly" -and $scriptData.XmlSource) {
                                  [System.IO.File]::WriteAllText((Join-Path $folder ($scriptData.Name + ".xml")), $scriptData.XmlSource, $utf8NoBom)
                                  $cleanJs = $scriptData.JsSource
                                  if ($cleanJs -match '//([A-Za-z0-9+/=%]{50,})\s*$') { $cleanJs = $cleanJs.Replace($Matches[0], "").Trim() }
                                  if ($cleanJs -match '(?s)<xml.*?></xml>') { $cleanJs = $cleanJs.Replace($Matches[0], "").Trim() }
                                  [System.IO.File]::WriteAllText((Join-Path $folder ($scriptData.Name + ".js")), $cleanJs, $utf8NoBom)
                              } else { 
                                  [System.IO.File]::WriteAllText((Join-Path $folder ($scriptData.Name + ".js")), $scriptData.JsSource, $utf8NoBom)
                              }
                          }
                          Invoke-Item $root
                          [System.Windows.Forms.MessageBox]::Show("Export von $($ausIDs.Count) Skripte(n) erfolgreich abgeschlossen!", "Fertig", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information)
                      }
                  
                      # GUI Definition
                      $f = New-Object System.Windows.Forms.Form
                      $f.Text = "ioBroker Script Extractor & Search"
                      $f.Size = New-Object System.Drawing.Size(960, 830)
                      $f.StartPosition = "CenterScreen"
                  
                      $pnlTop = New-Object System.Windows.Forms.Panel
                      $pnlTop.Dock = "Top"
                      $pnlTop.Height = 100
                      $f.Controls.Add($pnlTop)
                  
                      # Suchmodus Radio-Buttons
                      $grpMode = New-Object System.Windows.Forms.GroupBox -Property @{Text="Suchmodus"; Location=New-Object System.Drawing.Point(10,5); Size=New-Object System.Drawing.Size(465,40)}
                      $rbSearchName = New-Object System.Windows.Forms.RadioButton -Property @{Text="Skripte (Name/Pfad)"; Location=New-Object System.Drawing.Point(10,15); Size=New-Object System.Drawing.Size(150,20); Checked=$true}
                      $rbSearchDp = New-Object System.Windows.Forms.RadioButton -Property @{Text="In Skripten nach Datenpunkt / Code suchen"; Location=New-Object System.Drawing.Point(170,15); Size=New-Object System.Drawing.Size(280,20)}
                      $grpMode.Controls.AddRange(@($rbSearchName, $rbSearchDp))
                  
                      $lblSrc = New-Object System.Windows.Forms.Label -Property @{Text="Suchen:"; Location=New-Object System.Drawing.Point(10,53); Size=New-Object System.Drawing.Size(50,20)}
                      $txtSearch = New-Object System.Windows.Forms.TextBox -Property @{Location=New-Object System.Drawing.Point(65,50); Size=New-Object System.Drawing.Size(410,20)}
                      $chkHide = New-Object System.Windows.Forms.CheckBox -Property @{Text="Deaktivierte ausblenden"; Location=New-Object System.Drawing.Point(490,48); Size=New-Object System.Drawing.Size(170,24)}
                  
                      $cmbType = New-Object System.Windows.Forms.ComboBox
                      $cmbType.Location = New-Object System.Drawing.Point(670, 48)
                      $cmbType.Size = New-Object System.Drawing.Size(150, 24)
                      $cmbType.DropDownStyle = [System.Windows.Forms.ComboBoxStyle]::DropDownList
                      [void]$cmbType.Items.AddRange(@("Alle Typen", "Nur Blockly", "Nur JavaScript"))
                      $cmbType.SelectedIndex = 0
                  
                      $lblCount = New-Object System.Windows.Forms.Label
                      $lblCount.Text = "Gefundene Skripte: 0"
                      $lblCount.Location = New-Object System.Drawing.Point(10, 78)
                      $lblCount.Size = New-Object System.Drawing.Size(500, 20)
                      $lblCount.Font = New-Object System.Drawing.Font("Arial", 9, [System.Drawing.FontStyle]::Bold)
                  
                      $pnlTop.Controls.AddRange(@($grpMode, $lblSrc, $txtSearch, $chkHide, $cmbType, $lblCount))
                  
                      $pnlBottom = New-Object System.Windows.Forms.Panel
                      $pnlBottom.Dock = "Bottom"
                      $pnlBottom.Height = 55
                      $f.Controls.Add($pnlBottom)
                  
                      $btnClip = New-Object System.Windows.Forms.Button -Property @{Text="In Zwischenablage"; Location=New-Object System.Drawing.Point(10,10); Size=New-Object System.Drawing.Size(160,35)}
                      $btnAll = New-Object System.Windows.Forms.Button -Property @{Text="Alle exportieren"; Location=New-Object System.Drawing.Point(180,10); Size=New-Object System.Drawing.Size(150,35)}
                      $btnOk = New-Object System.Windows.Forms.Button -Property @{Text="Ausgewaehlte exportieren"; Location=New-Object System.Drawing.Point(500,10); Size=New-Object System.Drawing.Size(160,35)}
                      $btnCan = New-Object System.Windows.Forms.Button -Property @{Text="Schliessen"; Location=New-Object System.Drawing.Point(670,10); Size=New-Object System.Drawing.Size(150,35)}
                      $pnlBottom.Controls.AddRange(@($btnClip, $btnAll, $btnOk, $btnCan))
                  
                      $dgv = New-Object System.Windows.Forms.DataGridView -Property @{Location=New-Object System.Drawing.Point(10, 105); Size=New-Object System.Drawing.Size(925, 235); Anchor="Top, Left, Right"; AutoSizeColumnsMode="Fill"; SelectionMode="FullRowSelect"; MultiSelect=$true; AllowUserToAddRows=$false; ReadOnly=$true; RowHeadersVisible=$false}
                      $f.Controls.Add($dgv)
                  
                      $lblPrev = New-Object System.Windows.Forms.Label
                      $lblPrev.Text = "Code-Vorschau:"
                      $lblPrev.Location = New-Object System.Drawing.Point(10, 345)
                      $lblPrev.Size = New-Object System.Drawing.Size(500, 20)
                      $lblPrev.Anchor = "Top, Left"
                      $f.Controls.Add($lblPrev)
                  
                      $txtPrev = New-Object System.Windows.Forms.RichTextBox
                      $txtPrev.Location = New-Object System.Drawing.Point(10, 370)
                      $txtPrev.Size = New-Object System.Drawing.Size(925, 310)
                      $txtPrev.Anchor = "Top, Bottom, Left, Right"
                      $txtPrev.Font = New-Object System.Drawing.Font("Consolas", 10)
                      $txtPrev.ReadOnly = $true
                      $txtPrev.WordWrap = $false
                      $f.Controls.Add($txtPrev)
                  
                      $txtSearch.Add_TextChanged({ Update-Grid })
                      $chkHide.Add_CheckedChanged({ Update-Grid })
                      $cmbType.Add_SelectedIndexChanged({ Update-Grid })
                      $rbSearchName.Add_CheckedChanged({ Update-Grid })
                      $rbSearchDp.Add_CheckedChanged({ Update-Grid })
                  
                      $dgv.Add_SelectionChanged({
                          $anz = $dgv.SelectedRows.Count
                          if ($anz -gt 0) {
                              $selectedRow = $dgv.SelectedRows | Select-Object -First 1
                              if ($selectedRow.Cells["InternalID"] -and $selectedRow.Cells["InternalID"].Value) {
                                  $selID = [string]$selectedRow.Cells["InternalID"].Value
                                  $m = $skriptListe | Where-Object { $_.Internal -eq $selID }
                                  if ($m) { 
                                      $codeText = if ($m.Typ -eq "Blockly" -and $m.XmlSource) { $m.XmlSource } else { $m.JsSource }
                                      
                                      # Vorschau zurücksetzen
                                      $txtPrev.Text = $codeText
                                      $txtPrev.SelectAll()
                                      $txtPrev.SelectionBackColor = [System.Drawing.Color]::White
                                      $txtPrev.SelectionColor = [System.Drawing.Color]::Black
                                      $txtPrev.DeselectAll()
                                      
                                      # Bei Datenpunktsuche Treffer gelb markieren & anspringen
                                      $searchTerm = $txtSearch.Text.Trim()
                                      if ($rbSearchDp.Checked -and -not [string]::IsNullOrWhiteSpace($searchTerm)) {
                                          $idx = $codeText.IndexOf($searchTerm, [System.StringComparison]::OrdinalIgnoreCase)
                                          if ($idx -ge 0) {
                                              $txtPrev.Select($idx, $searchTerm.Length)
                                              # Korrigierte Eigenschaft SelectionBackColor für WinForms RichTextBox
                                              $txtPrev.SelectionBackColor = [System.Drawing.Color]::Yellow
                                              $txtPrev.SelectionColor = [System.Drawing.Color]::Black
                                              $txtPrev.ScrollToCaret()
                                          }
                                      }
                                  }
                              }
                              $lblPrev.Text = if ($anz -eq 1) { "Code-Vorschau (1 Skript ausgewählt):" } else { "Code-Vorschau ($anz Skripte ausgewählt):" }
                          } else { 
                              $txtPrev.Text = ""
                              $lblPrev.Text = "Code-Vorschau (0 Skripte ausgewählt):" 
                          }
                      })
                  
                      $btnClip.Add_Click({
                          if (-not [string]::IsNullOrEmpty($txtPrev.Text)) {
                              [System.Windows.Forms.Clipboard]::SetText($txtPrev.Text)
                              $global:oldText = $btnClip.Text
                              $btnClip.Text = "Kopiert!"
                              $btnClip.Enabled = $false
                              $global:clipTimer = New-Object System.Windows.Forms.Timer -Property @{ Interval = 1500 }
                              $global:clipTimer.Add_Tick({ 
                                  $btnClip.Text = $global:oldText
                                  $btnClip.Enabled = $true
                                  $global:clipTimer.Stop()
                                  $global:clipTimer.Dispose() 
                              })
                              $global:clipTimer.Start()
                          }
                      })
                  
                      $btnAll.Add_Click({ Start-ScriptExport -modus "all" })
                      $btnOk.Add_Click({ Start-ScriptExport -modus "selected" })
                      $btnCan.Add_Click({ $f.Close() })
                  
                      Update-Grid
                      [void]$f.ShowDialog()
                  
                  } finally {
                      if (Test-Path $tmp) { Remove-Item $tmp -Recurse -Force -EA SilentlyContinue }
                  }
                  

                  damit kann man nun auch nach Datenpunkten in den Scripten suchen und diese werden dann aufgelistet.

                  333.jpg

                  ioBroker_Script_Extractor.zip

                  1 Antwort Letzte Antwort
                  0
                  • Michael SchmittM Michael Schmitt

                    Hallo,

                    hab jetzt noch ein wenig daran gebaut (Ki war der Macher) und nun schaut es so aus.
                    Ist nur mit Javascript und Blockly getestet.

                    Jetzt mit

                    • Suchfunktion
                    • einzelne Scripte wiederherstellen
                    • direkt in Zwischenablage kopieren
                    • deaktivierte Scripte ausblenden
                    • Namens oder Ordnersuche

                    1.jpg

                    • Ordner in C:\iobroker_Script_recover erstellen
                      in diesen Ordner
                    • Datei erstellen: ioBroker_Script_Extractor.ps1 mit diesem Inhalt.
                    Add-Type -AssemblyName System.Windows.Forms
                    Add-Type -AssemblyName System.Drawing
                    Add-Type -AssemblyName System.Web
                    
                    $fd = New-Object System.Windows.Forms.OpenFileDialog
                    $fd.InitialDirectory = "C:\"
                    $fd.Filter = "script.json|*.json"
                    $fd.Title = "Wähle script.json"
                    
                    if ($fd.ShowDialog() -ne [System.Windows.Forms.DialogResult]::OK) { exit }
                    
                    $raw = Get-Content $fd.FileName -Raw
                    if ([string]::IsNullOrWhiteSpace($raw)) { exit }
                    $json = ConvertFrom-Json $raw
                    $skriptListe = [System.Collections.Generic.List[Object]]::new()
                    
                    function Get-SichererBlocklyXml ([string]$sourceCode) {
                        if ([string]::IsNullOrWhiteSpace($sourceCode)) { return "" }
                        if ($sourceCode -match '//([A-Za-z0-9+/=%]{50,})\s*$') {
                            try {
                                $xml = [System.Web.HttpUtility]::UrlDecode([Text.Encoding]::UTF8.GetString([Convert]::FromBase64String($Matches[1])))
                                if ($xml -match '<xml') { return ($xml -replace '><', ">`r`n<").Trim() }
                            } catch {}
                        }
                        if ($sourceCode -match '(?s)(<xml.*?</xml>)') { return ($Matches[1] -replace '><', ">`r`n<").Trim() }
                        return ""
                    }
                    
                    function Add-SkriptToList ([string]$id, $obj) {
                        if (-not $obj -or ($obj.type -match "channel|folder")) { return }
                        $saubereID = $id -replace '^script\.js\.(common\.|global\.)?', ''
                        $parts = $saubereID.Split('.')
                        $p = "Hauptordner"
                        if ($parts.Count -gt 1) { $p = $parts[0..($parts.Count-2)] -join '/' }
                        $src = ""
                        if ($obj.common -and $obj.common.source) { $src = $obj.common.source }
                        elseif ($obj.source) { $src = $obj.source }
                        $en = $true
                        if ($obj.common -and $obj.common.enabled -ne $null) { $en = $obj.common.enabled }
                        $xml = Get-SichererBlocklyXml -sourceCode $src
                        $skriptListe.Add([PSCustomObject]@{
                            Name = $parts[-1]; Pfad = $p; Internal = $id; JsSource = $src; XmlSource = $xml;
                            Typ = if ($xml) { "Blockly" } else { "JavaScript" }; Status = if ($en) { "Aktiv" } else { "Deaktiviert" }
                        })
                    }
                    
                    if ($json.PSObject.Properties.Name -contains "objects") {
                        foreach ($p in $json.objects.PSObject.Properties) { if ($p.Name -like "script.js.*") { Add-SkriptToList -id $p.Name -obj $p.Value } }
                    } else {
                        foreach ($p in $json.PSObject.Properties) { if ($p.Name -like "script.js.*") { Add-SkriptToList -id $p.Name -obj $p.Value } }
                    }
                    if ($skriptListe.Count -eq 0) { exit }
                    
                    $f = New-Object System.Windows.Forms.Form
                    $f.Text = "ioBroker Script Extractor"
                    $f.Size = New-Object System.Drawing.Size(850, 750)
                    $f.StartPosition = "CenterScreen"
                    
                    $txtSearch = New-Object System.Windows.Forms.TextBox
                    $txtSearch.Location = New-Object System.Drawing.Point(65, 12)
                    $txtSearch.Size = New-Object System.Drawing.Size(450, 20)
                    $f.Controls.Add($txtSearch)
                    
                    $chkHide = New-Object System.Windows.Forms.CheckBox
                    $chkHide.Text = "Deaktivierte ausblenden"
                    $chkHide.Location = New-Object System.Drawing.Point(530, 10)
                    $chkHide.Size = New-Object System.Drawing.Size(180, 24)
                    $f.Controls.Add($chkHide)
                    
                    $lblCount = New-Object System.Windows.Forms.Label
                    $lblCount.Text = "Gefundene Skripte: 0"
                    $lblCount.Location = New-Object System.Drawing.Point(10, 45)
                    $lblCount.Size = New-Object System.Drawing.Size(400, 20)
                    $lblCount.Font = New-Object System.Drawing.Font("Arial", 9, [System.Drawing.FontStyle]::Bold)
                    $f.Controls.Add($lblCount)
                    
                    $dgv = New-Object System.Windows.Forms.DataGridView
                    $dgv.Location = New-Object System.Drawing.Point(10, 70)
                    $dgv.Size = New-Object System.Drawing.Size(810, 240)
                    $dgv.AutoSizeColumnsMode = "Fill"
                    $dgv.SelectionMode = "FullRowSelect"
                    $dgv.MultiSelect = $true
                    $dgv.AllowUserToAddRows = $false
                    $dgv.ReadOnly = $true
                    $dgv.RowHeadersVisible = $false
                    $f.Controls.Add($dgv)
                    
                    $lblPrev = New-Object System.Windows.Forms.Label
                    $lblPrev.Text = "Vorschau:"
                    $lblPrev.Location = New-Object System.Drawing.Point(10, 325)
                    $lblPrev.Size = New-Object System.Drawing.Size(500, 20)
                    $f.Controls.Add($lblPrev)
                    
                    $txtPrev = New-Object System.Windows.Forms.RichTextBox
                    $txtPrev.Location = New-Object System.Drawing.Point(10, 345)
                    $txtPrev.Size = New-Object System.Drawing.Size(810, 260)
                    $txtPrev.Font = New-Object System.Drawing.Font("Consolas", 10)
                    $txtPrev.ReadOnly = $true
                    $txtPrev.WordWrap = $false
                    $f.Controls.Add($txtPrev)
                    
                    $btnClip = New-Object System.Windows.Forms.Button
                    $btnClip.Text = "📋 In Zwischenablage"
                    $btnClip.Location = New-Object System.Drawing.Point(10, 620)
                    $btnClip.Size = New-Object System.Drawing.Size(160, 35)
                    $f.Controls.Add($btnClip)
                    
                    $btnAll = New-Object System.Windows.Forms.Button
                    $btnAll.Text = "📦 Alle exportieren"
                    $btnAll.Location = New-Object System.Drawing.Point(180, 620)
                    $btnAll.Size = New-Object System.Drawing.Size(150, 35)
                    $btnAll.DialogResult = 7
                    $f.Controls.Add($btnAll)
                    
                    $btnOk = New-Object System.Windows.Forms.Button
                    $btnOk.Text = "Ausgewählte exportieren"
                    $btnOk.Location = New-Object System.Drawing.Point(500, 620)
                    $btnOk.Size = New-Object System.Drawing.Size(160, 35)
                    $btnOk.DialogResult = [System.Windows.Forms.DialogResult]::OK
                    $f.Controls.Add($btnOk)
                    
                    $btnCan = New-Object System.Windows.Forms.Button
                    $btnCan.Text = "Abbrechen"
                    $btnCan.Location = New-Object System.Drawing.Point(670, 620)
                    $btnCan.Size = New-Object System.Drawing.Size(150, 35)
                    $btnCan.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
                    $f.Controls.Add($btnCan)
                    
                    $lblSrc = New-Object System.Windows.Forms.Label -Property @{Text="Suchen:"; Location=New-Object System.Drawing.Point(10,15); Size=New-Object System.Drawing.Size(50,20)}
                    $f.Controls.Add($lblSrc)
                    
                    # KORREKTUR: Wildcards (*...) wieder korrekt für den Pfad-Vergleich aktiviert
                    function Update-Grid {
                        $filtered = $skriptListe | Where-Object { [string]::IsNullOrWhiteSpace($txtSearch.Text) -or $_.Name -like "*$($txtSearch.Text)*" -or $_.Pfad -like "*$($txtSearch.Text)*" } | Where-Object { -not $chkHide.Checked -or $_.Status -eq "Aktiv" }
                        $dt = New-Object System.Data.DataTable; [void]$dt.Columns.AddRange(@("Name","ioBroker-Pfad","Typ","Status","InternalID"))
                        foreach ($item in $filtered) { [void]$dt.Rows.Add($item.Name, $item.Pfad, $item.Typ, $item.Status, $item.Internal) }
                        $dgv.DataSource = $dt; if ($dgv.Columns["InternalID"]) { $dgv.Columns["InternalID"].Visible = $false }
                        $lblCount.Text = "Gefundene Skripte (aktueller Filter): " + $filtered.Count
                        $lblPrev.Text = "Vorschau (0 Skripte ausgewählt):"
                    }
                    $txtSearch.Add_TextChanged({ Update-Grid }); $chkHide.Add_CheckedChanged({ Update-Grid })
                    
                    $dgv.Add_SelectionChanged({
                        $anz = $dgv.SelectedRows.Count
                        if ($anz -gt 0) {
                            $selID = [string]$dgv.SelectedRows[0].Cells["InternalID"].Value
                            if (-not [string]::IsNullOrEmpty($selID)) {
                                $m = $skriptListe | Where-Object { $_.Internal -eq $selID }
                                if ($m) { $txtPrev.Text = if ($m.Typ -eq "Blockly" -and $m.XmlSource) { $m.XmlSource } else { $m.JsSource } }
                            }
                            $lblPrev.Text = if ($anz -eq 1) { "Code-Vorschau (1 Skript ausgewählt):" } else { "Code-Vorschau ($anz Skripte ausgewählt):" }
                        } else { $txtPrev.Text = ""; $lblPrev.Text = "Vorschau (0 Skripte ausgewählt):" }
                    })
                    
                    $btnClip.Add_Click({
                        if (-not [string]::IsNullOrEmpty($txtPrev.Text)) {
                            [System.Windows.Forms.Clipboard]::SetText($txtPrev.Text)
                            $global:oldText = $btnClip.Text; $btnClip.Text = "✅ Kopiert!"; $btnClip.Enabled = $false
                            $global:clipTimer = New-Object System.Windows.Forms.Timer -Property @{ Interval = 1500 }
                            $global:clipTimer.Add_Tick({ $btnClip.Text = $global:oldText; $btnClip.Enabled = $true; $global:clipTimer.Stop(); $global:clipTimer.Dispose() }); $global:clipTimer.Start()
                        }
                    })
                    
                    Update-Grid
                    $res = $f.ShowDialog(); $ausIDs = @()
                    if ($res -eq 7) { foreach ($r in $dgv.Rows) { $ausIDs += [string]$r.Cells["InternalID"].Value } }
                    elseif ($res -eq [System.Windows.Forms.DialogResult]::OK -and $dgv.SelectedRows.Count -gt 0) { foreach ($r in $dgv.SelectedRows) { $ausIDs += [string]$r.Cells["InternalID"].Value } }
                    else { $f.Dispose(); exit }; $f.Dispose()
                    
                    $folderDialog = New-Object System.Windows.Forms.FolderBrowserDialog
                    if ($folderDialog.ShowDialog() -ne [System.Windows.Forms.DialogResult]::OK) { exit }
                    $root = Join-Path $folderDialog.SelectedPath ("ioBroker_Backup_" + (Get-Date -Format "yyyy-MM-dd_HH-mm"))
                    New-Item -ItemType Directory -Force -Path $root | Out-Null
                    
                    foreach ($targetID in $ausIDs) {
                        $scriptData = $skriptListe | Where-Object { $_.Internal -eq $targetID }
                        if (-not $scriptData) { continue }
                        $folder = if ($scriptData.Pfad -ne "Hauptordner") { Join-Path $root ($scriptData.Pfad -replace '/', '\') } else { $root }
                        if ($scriptData.Status -eq "Deaktiviert") { $folder = Join-Path $folder "_DEAKTIVIERT" }
                        New-Item -ItemType Directory -Force -Path $folder | Out-Null
                        if ($scriptData.Typ -eq "Blockly" -and $scriptData.XmlSource) {
                            $scriptData.XmlSource | Set-Content (Join-Path $folder ($scriptData.Name + ".xml")) -Encoding UTF8
                            $cleanJs = $scriptData.JsSource
                            if ($cleanJs -match '//([A-Za-z0-9+/=%]{50,})\s*$') { $cleanJs = $cleanJs.Replace($Matches[0], "").Trim() }
                            if ($cleanJs -match '(?s)<xml.*?></xml>') { $cleanJs = $cleanJs.Replace($Matches[0], "").Trim() }
                            $cleanJs | Set-Content (Join-Path $folder ($scriptData.Name + ".js")) -Encoding UTF8
                        } else { $scriptData.JsSource | Set-Content (Join-Path $folder ($scriptData.Name + ".js")) -Encoding UTF8 }
                    }
                    Invoke-Item $root
                    
                    
                    • Powershell öffnen
                    • cd C:\iobroker_Script_recover
                    • .\ioBroker_Script_Extractor.ps1
                    • script.json aus dem Javascript Backup auswählen (muß man davor natürlich entpacken)

                    3.jpg

                    hier zB mit deaktivierten scripten ausblenden
                    2.jpg

                    ich hoffe es hilft jemandem ;)

                    vowillV
                    vowillV
                    vowill
                    schrieb am zuletzt editiert von
                    #14

                    @Michael-Schmitt sagte:

                    Hier die EXE direkt für Windows

                    Hm. Dieses Program legt bei mir dann einen Ordner "temp_extract" an, in dem das File "temp_backup.tar" abgelegt wird. Aber wo finde ich nun die Skripte?

                    ioBroker im lxc auf NUC / Aktive Instanzen: 38

                    1 Antwort Letzte Antwort
                    0
                    • Michael SchmittM
                      Michael SchmittM
                      Michael Schmitt
                      schrieb am zuletzt editiert von Michael Schmitt
                      #15

                      @vowill werden dir den in der GUI die Scripte angezeigt ?
                      444.jpg

                      du kannst unten auf

                      • in Zwischenablage - kopiert den code der unten steht in die Zwischenablage
                      • Alle exportieren - hiermit werden alle gefundenen Scripte exportiert
                      • Ausgewählte exportieren - die Scripte die blau unterlegt sind werden exportiert
                      1 Antwort Letzte Antwort
                      0
                      • vowillV
                        vowillV
                        vowill
                        schrieb am zuletzt editiert von
                        #16

                        @michael-schmitt Danke für deine schnelle Rückmeldung. Vermutlich läuft bei mir das Programm nicht richtig: Es legt nur die schon genannte Datei 'temp_backup.tar' an, ohne dass sich ein Fenster öffnet. Vielleicht braucht das exe noch irgendwelche Zugriffsrechte ...

                        ioBroker im lxc auf NUC / Aktive Instanzen: 38

                        1 Antwort Letzte Antwort
                        0
                        • Michael SchmittM
                          Michael SchmittM
                          Michael Schmitt
                          schrieb am zuletzt editiert von Michael Schmitt
                          #17

                          du hast aber die zb "javascript_2026_08_09-03_37_10_backupiobroker.tar.gz" auf deinem PC. wenn die Dateien angelegt werden sollte das Programm auch laufen. Ist kein Symbol in der Taskleiste ?

                          1.jpg

                          S vowillV 2 Antworten Letzte Antwort
                          0
                          • Michael SchmittM Michael Schmitt

                            du hast aber die zb "javascript_2026_08_09-03_37_10_backupiobroker.tar.gz" auf deinem PC. wenn die Dateien angelegt werden sollte das Programm auch laufen. Ist kein Symbol in der Taskleiste ?

                            1.jpg

                            S
                            S
                            Shadowhunter23
                            schrieb am zuletzt editiert von
                            #18

                            @Michael-Schmitt
                            Mit welcher KI baust du das Tool?

                            Proxmox 9 HA-Cluster mit 3x HP prodesk 400 G6 i5
                            ioBroker Backup Analyzer

                            1 Antwort Letzte Antwort
                            0
                            • Michael SchmittM
                              Michael SchmittM
                              Michael Schmitt
                              schrieb am zuletzt editiert von Michael Schmitt
                              #19

                              Teilweise Gemini und ChatGPT

                              EDIT: es ist jeder Willkommen die Idee weiter zu spinnen und zu verbessern. Ich mach das nur aus Spaß an der Freude und aus der Not das ein oder andere mal ein Script zerschossen zu haben. Also Leute mit bezahlter Ki zaubern da sicher was besseres ;)

                              Für mich reichts

                              S 1 Antwort Letzte Antwort
                              0
                              • Michael SchmittM Michael Schmitt

                                du hast aber die zb "javascript_2026_08_09-03_37_10_backupiobroker.tar.gz" auf deinem PC. wenn die Dateien angelegt werden sollte das Programm auch laufen. Ist kein Symbol in der Taskleiste ?

                                1.jpg

                                vowillV
                                vowillV
                                vowill
                                schrieb am zuletzt editiert von vowill
                                #20

                                @Michael-Schmitt sagte:

                                du hast aber die zb "iobroker_2026_08_09-03_37_10_backupiobroker.tar.gz" auf deinem PC. wenn die Dateien angelegt werden sollte das Programm auch laufen. Ist kein Symbol in der Taskleiste ?

                                Ja, Backup-File ist auf dem PC im gleichen Directory. Beim Starten des .exe mosert erst Windows (11) wg. unbekannter App; nach dem Start öffnet sich das Fenster zur Dateiauswahl. Nach der Auswahl wird die o.g. Datei 'temp_backup.tar' angelegt und das Programm beendet sich. Die ganze Zeit erscheint kein Programmsymbol in der Taskleiste.

                                Nachtrag: Wenn ich das ps1 anlege und es in PowerShell öffne, kommt die Fehlermeldung

                                • CategoryInfo: Sicherheitsfehler: (:) [], PSSecurityException
                                • FullyQualifiedErrorId : UnauthorizedAccess

                                Noch ein Nachtrag: In PS musste ich die Ausführungsrichtlinie ändern (auf 'Bypass' oder 'Unrestricted'). Dann läuft das Skript los.
                                Allerdings findet er in meinem Backup-File keine Datei script.json (die habe ich nach dem Entpacken auch nicht gefunden). Meine Skripte liegen im Backup wohl alle in der Datei "opjects.jsonl" 😕

                                ioBroker im lxc auf NUC / Aktive Instanzen: 38

                                1 Antwort Letzte Antwort
                                0
                                • NashraN
                                  NashraN
                                  Nashra
                                  Most Active Forum Testing
                                  schrieb am zuletzt editiert von
                                  #21

                                  @michael-schmitt
                                  habe die exe mal gestartet, funktioniert bei mir.
                                  Gut gemacht 👍

                                  Gruß Ralf
                                  Mir egal, wer Dein Vater ist! Wenn ich hier angel, wird nicht übers Wasser gelaufen!!

                                  Benutzt das Voting rechts unten im Beitrag wenn er euch geholfen hat.

                                  1 Antwort Letzte Antwort
                                  0
                                  • Michael SchmittM
                                    Michael SchmittM
                                    Michael Schmitt
                                    schrieb am zuletzt editiert von
                                    #22

                                    Sry hab ich falsch geschrieben, du must die Backup Datei nehmen die mit Javascript beginnt

                                    1 Antwort Letzte Antwort
                                    0
                                    • Michael SchmittM Michael Schmitt

                                      Teilweise Gemini und ChatGPT

                                      EDIT: es ist jeder Willkommen die Idee weiter zu spinnen und zu verbessern. Ich mach das nur aus Spaß an der Freude und aus der Not das ein oder andere mal ein Script zerschossen zu haben. Also Leute mit bezahlter Ki zaubern da sicher was besseres ;)

                                      Für mich reichts

                                      S
                                      S
                                      Shadowhunter23
                                      schrieb am zuletzt editiert von Shadowhunter23
                                      #23

                                      @Michael-Schmitt sagte:

                                      EDIT: es ist jeder Willkommen die Idee weiter zu spinnen und zu verbessern.

                                      Ebenso ein Spaß Projekt:
                                      https://forum.iobroker.net/topic/85201/iobroker-backup-analyzer-ein-backup-offline-auswerten

                                      Proxmox 9 HA-Cluster mit 3x HP prodesk 400 G6 i5
                                      ioBroker Backup Analyzer

                                      1 Antwort Letzte Antwort
                                      0
                                      • Michael SchmittM
                                        Michael SchmittM
                                        Michael Schmitt
                                        schrieb am zuletzt editiert von
                                        #24

                                        Nice, muss ich mir gleich nach der Arbeit anschauen. @shadowhunter23 .....

                                        1 Antwort Letzte Antwort
                                        0

                                        Hey! Du scheinst an dieser Unterhaltung interessiert zu sein, hast aber noch kein Konto.

                                        Hast du es satt, bei jedem Besuch durch die gleichen Beiträge zu scrollen? Wenn du dich für ein Konto anmeldest, kommst du immer genau dorthin zurück, wo du zuvor warst, und kannst dich über neue Antworten benachrichtigen lassen (entweder per E-Mail oder Push-Benachrichtigung). Du kannst auch Lesezeichen speichern und Beiträge positiv bewerten, um anderen Community-Mitgliedern deine Wertschätzung zu zeigen.

                                        Mit deinem Input könnte dieser Beitrag noch besser werden 💗

                                        Registrieren Anmelden
                                        Antworten
                                        • In einem neuen Thema antworten
                                        Anmelden zum Antworten
                                        • Älteste zuerst
                                        • Neuste zuerst
                                        • Meiste Stimmen


                                        Support us

                                        ioBroker
                                        Community Adapters
                                        Donate

                                        405

                                        Online

                                        33.1k

                                        Benutzer

                                        84.1k

                                        Themen

                                        1.4m

                                        Beiträge
                                        Community
                                        Impressum | Datenschutz-Bestimmungen | Nutzungsbedingungen | Einwilligungseinstellungen
                                        ioBroker Community 2014-2026
                                        logo
                                        • Anmelden

                                        • Du hast noch kein Konto? Registrieren

                                        • Anmelden oder registrieren, um zu suchen
                                        • Erster Beitrag
                                          Letzter Beitrag
                                        0
                                        • Home
                                        • Aktuell
                                        • Ungelesen 0
                                        • Kategorien
                                        • Unreplied
                                        • Beliebt
                                        • GitHub
                                        • Docu
                                        • Hilfe