25.08.2020, 12:29
(25.08.2020, 12:27)BoskoBiati schrieb: [ -> ]Hi,
dann stelle mal eine Mustertabelle vor.
ich hab sie im oberen beitrag hinzugefügt. Danke schonmal fürs Anschauen! :100:
(25.08.2020, 12:27)BoskoBiati schrieb: [ -> ]Hi,
dann stelle mal eine Mustertabelle vor.
(25.08.2020, 21:15)enigma2k schrieb: [ -> ]Ist diese Art von Formel eigentlich ressourcenhungriger für Excel wenn es auf mehrere Seiten steht als normal über die Formelzeile so wie ich es ursprünglich gehabt habe?
Function xmlText(Exercise As String, Header As String, Audio As String, Info As String, PostID As Long) As String
Dim Aus As String
Select Case Info
Case "w"
Aus = "<line><word1>" & Exercise & "</word1>" & "<word2>" & Header & "</word2>" & "<info>" & Audio & "</info></line>"
Case Is = "A"
Aus = "<line><orig-a>" & Exercise & "</orig-a>" & "<trans-a>" & Header & "</trans-a>" & "<info>" & Audio & "</info></line>"
Case Is = "B"
Aus = "<line><orig-b>" & Exercise & "</orig-b>" & "<trans-b>" & Header & "</trans-b>" & "<info>" & Audio & "</info></line>"
Case Is = "start"
Aus = "<dialog><header>" & Header & "</header><audio>" & Audio & "</audio><post-id>" & PostID & "</post-id>"
Case Is = "end"
Aus = "</dialog>"
Case Else
Aus = " E R R O R / F E H L E R "
End Select
xmlText = Aus
End Function
Option Explicit
Function xmlText(Exercise As String, Header As String, Audio As String, Info As String, PostID As Long) As String
Dim Aus As String
Select Case LCase(Info)
Case "w"
Aus = "<line><word1>" & Exercise & "</word1>" & "<word2>" & Header & "</word2>" & "<info>" & Audio & "</info></line>"
Case Is = "a"
Aus = "<line><orig-a>" & Exercise & "</orig-a>" & "<trans-a>" & Header & "</trans-a>" & "<info>" & Audio & "</info></line>"
Case Is = "b"
Aus = "<line><orig-b>" & Exercise & "</orig-b>" & "<trans-b>" & Header & "</trans-b>" & "<info>" & Audio & "</info></line>"
Case Is = "start"
Aus = "<dialog><header>" & Header & "</header><audio>" & Audio & "</audio><post-id>" & PostID & "</post-id>"
Case Is = "end"
Aus = "</dialog>"
Case Else
Aus = " E R R O R / F E H L E R "
End Select
xmlText = Aus
End Function
Option Explicit
Function xmlText(Exercise As String, Header As String, Audio As String, Info As String, PostID As Long) As String
Dim Aus As String
Select Case UCase(Info)
Case "W"
Aus = "<line><word1>" & Exercise & "</word1>" & "<word2>" & Header & "</word2>" & "<info>" & Audio & "</info></line>"
Case Is = "A"
Aus = "<line><orig-a>" & Exercise & "</orig-a>" & "<trans-a>" & Header & "</trans-a>" & "<info>" & Audio & "</info></line>"
Case Is = "B"
Aus = "<line><orig-b>" & Exercise & "</orig-b>" & "<trans-b>" & Header & "</trans-b>" & "<info>" & Audio & "</info></line>"
Case Is = "START"
Aus = "<dialog><header>" & Header & "</header><audio>" & Audio & "</audio><post-id>" & PostID & "</post-id>"
Case Is = "END"
Aus = "</dialog>"
Case Else
Aus = " E R R O R / F E H L E R "
End Select
xmlText = Aus
End Function
Function ssmlarray(ParamArray text() As Variant)
Function ssmlarray(text)
Case Is = "w"
Ausgabe = "Das Wort lautet: " & Original & " " & Translation
Case Is = "a"
Ausgabe = "Das ist Person A"
Case Is = "b"
Ausgabe = "Das ist Person B"
Case Else
Ausgabe = "E R R O R"