Clever-Excel-Forum

Da steht aber auch eine 1 hinter "id" ("button_id1"), die gehört da nicht in.

Den Code von 21:55 kann ich nicht umsetzen (weiss nicht wie das einzubauen ist).

Kurz zur Erklärung:

Public Function ErstelleMenueInhalt2(strConfigPath As String, strMenuPoint As String, lngFrom As Long, lngTo As Long) As String

  Dim varConfKeyCount As Long
  Dim lngMenuPos      As Long
  Dim varXMLParams    As Variant
  Dim varConfKeyName  As Variant
  Dim varXMLParamsPos As Variant
  Dim varConfKeys     As Variant
  
  varConfKeyName = Split("isSeparator separatorID ButtonId Caption MacroName imageMSO screentip supertip keytip tag")
  varXMLParams = Split("<menuSeparator id_isSeparator_<button id_label_onAction_imageMSO_screentip_supertip_keytip_tag", "_")
  
  For lngMenuPos = lngFrom To lngTo
      varXMLParamsPos = varXMLParams
         For varConfKeyCount = 0 To Ubound(varXMLParamsPos)
             varConfKeys = MenueinhaltEinlesen(strMenuPoint & lngMenuPos, varConfKeyName(varConfKeyCount), strConfigPath)
                If varConfKeys <> "" Then varXMLParamsPos(varConfKeyCount) = varXMLParamsPos(varConfKeyCount) & _
                                  IIf(varConfKeyCount < 2, lngMenuPos, "") & "=""" & varConfKeys & IIf(varConfKeyCount < 1, """/>", "")
         Next varConfKeyCount


         ErstelleMenueInhalt2 = ErstelleMenueInhalt2 & Join(Filter(varXMLParamsPos, "="), """ ") & """/>"

  Next lngMenuPos
  
End Function

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2002-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Das ist der Code mit Anpassung. Nur erzeugt er eine falsche Ausgabe. Das Anführungszeichen hinter der schließenden Klammer bei menuSeparator ist auch falsch.
<menuSeparator id1="0"/>" isSeparator1="mnu1Separator" <button id="mnu1Button" label="Eintrag 1" on‌Action="onAction_Button" imageMSO="FilesToolAddFiles" tag="Tag1"/>

Richtig wäre:

(das X steht jeweils für den Zähler lngMenuPos)

Wenn "isSeparator=1": <menuSeparator id="mnu1SeparatorX"/> <button id="mnu1ButtonX" label="Eintrag 1" on‌Action="onAction_Button" imageMSO="FilesToolAddFiles" tag="Tag1"/>

Wenn "isSeparator=0": <button id="mnu1ButtonX" label="Eintrag 1" on‌Action="onAction_Button" imageMSO="FilesToolAddFiles" tag="Tag1"/> (das X steht jeweils für den Zähler lngMenuPos)

Nicht ganz so gut, aber funktioniert (und gefällt mir besser als mein bisheriger Code). Vielleicht gibt es daran ja noch etwas zu optimieren.

 Public Function ErstelleMenueInhalt(strConfigPath As String, strMenuPoint As String, lngFrom As Long, lngTo As Long) As String
 
  Dim varConfKeyCount As Long
  Dim lngMenuPos      As Long
  Dim varXMLParams    As Variant
  Dim varConfKeyName  As Variant
  Dim varXMLParamsPos As Variant
  Dim varConfKeys     As Variant
  Dim varSepCount     As Variant
  Dim varSeparator    As Variant
  Dim strSepKeys      As String
  Dim strSeparator    As String
  
  varConfKeyName = Split("isSeparator separatorID ButtonId Caption MacroName imageMSO screentip supertip keytip tag")
  varXMLParams = Split("<menuSeparator id_isSeparator_<button id_label_onAction_imageMso_screentip_supertip_keytip_tag", "_")
  

  For lngMenuPos = lngFrom To lngTo
      strSeparator = ""
      strSepKeys = ""
      
      varXMLParamsPos = varXMLParams
         For varConfKeyCount = 0 To 1
             varConfKeys = MenueinhaltEinlesen(strMenuPoint & lngMenuPos, varConfKeyName(varConfKeyCount), strConfigPath)
             strSepKeys = strSepKeys & varConfKeys & ","
         Next varConfKeyCount
         varSeparator = Split(strSepKeys, ",")
         If varSeparator(0) = "1" Then strSeparator = varXMLParams(0) & "=""" & varSeparator(1) & lngMenuPos & """ />"
                
         For varConfKeyCount = 2 To Ubound(varConfKeyName)
             varConfKeys = MenueinhaltEinlesen(strMenuPoint & lngMenuPos, varConfKeyName(varConfKeyCount), strConfigPath)
                If varConfKeys <> "" Then varXMLParamsPos(varConfKeyCount) = varXMLParamsPos(varConfKeyCount) & _
                                          "=""" & varConfKeys & IIf(varConfKeyCount < 1, """/>", IIf((varConfKeyCount = 2), lngMenuPos & "", ""))
         Next varConfKeyCount

       
         ErstelleMenueInhalt = ErstelleMenueInhalt & strSeparator & Join(Filter(varXMLParamsPos, "="), """ ") & """ />"

  Next lngMenuPos
         
End Function

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Kann 'ziemlich' optimiert werden:

So gefällt mir das. Nurnoch 23 Zeilen anstatt 64. :28: Musste zwar ein paar Leerzeichen in "sp" entfernen, sonst macht der Code Fehler, aber es funktioniert. Und man lernt etwas über Schleifen. Danke!

kann verkürzt werden bis:

Das Wichtigste ist erledigt.


Ein kleines "Gimmick" wäre vielleicht noch gut. Später kommen mal weitere Attribute hinzu. Dies sind Attribute die sich gegenseitig ausschließen (z.B.: label und getLabel, screentip und getScreentip, supertip und getSupertip). Wenn jetzt z.B. jemand label und getLabel füllt soll nur getLabel aufgenommen werden, label soll dann ignoriert werden.

Nun kannst du sehen wie wichtig sytematische Programmierung ist:
Ich habe die Reihenfolge der Attributen etwas geändert.

Jetzt nach dem ich die letzte Schleife verstanden habe konnte ich ein weiteres Ausschlußkriterium hinzufügen (imageMso und getImage schließen sich ebenfalls gegenseitig aus). Danke nochmal!