Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Dim Daten as String
private function extract_chr10(byValue text as String)
Dim ret as String
Dim i as Integer
Dim Zeichen as String
For i = 1 to Len(text)
Zeichen = Mid(text,i,1)
If Zeichen<>chr(10) Then
ret = ret + Zeichen
End If
Next
extract_chr10 = ret
end function
Private Sub Beispiel
MsgBox "Daten vorher: " & vbcrlf & Daten
Daten = "die Daten mit dem" & chr(10) & "drinnen"
Daten = extract_chr10(Daten)
MsgBox "Daten nachher: " & vbcrlf & Daten
End Sub
daten = VBA.Replace(daten, chr(10), "")