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 Text As String
Dim Nr As Integer
Nr = FreeFile
Open "D:\Test.txt" For Binary As Nr
Text = Space(LOF(Nr))
Get Nr, , Text
Close Nr
Text = Mid(Text, 1, InStr(1, Text, Chr(34))) & "ABC" & _
Mid(Text, InStr(1, Text, Chr(34)) + 1)
MsgBox Text
Dim DerCode as String
DerCode = <font face="Arial" color="#000000" style="font-size:8pt"><b><u>Hallo<img src="Pfad" alt="Bild"><img src="Pfad2" alt="Bild2"> 'Oder eben via DateiInput zuweisen
MsgBox DerCode 'Alter Code
DerCode = Replace("Pfad", "ABC") 'Natürlich sind hier auch Variablen erlaubt!
MsgBox DerCode 'Neuer Code
Dim Code as String, PfadNummer1 as String, PfadNummer2 as String, PfadNummer3 as String, PfadNummer4 as String, PfadNummer5 as String
Code = "<img src='" & PfadNummer1 & "'></img>" & _
"<img src='" & PfadNummer2 & "'></img>" & _
"<img src='" & PfadNummer3 & "'></img>" & _
"<img src='" & PfadNummer4 & "'></img>" & _
"<img src='" & PfadNummer5 & "'></img>"
MsgBox Code
Private Sub Command1_Click()
Dim Text As String
Dim Nr As Integer
Dim SuchZeichen As String
SuchZeichen = "<img src=" & Chr(34) & "Pfad" & Chr(34)
Nr = FreeFile
Open "D:\Test.txt" For Binary As Nr
Text = Space(LOF(Nr))
Get Nr, , Text
Close Nr
Text = Replace(Text, SuchZeichen, "<img src=" & Chr(34) & "ABC" & Chr(34))
MsgBox Text
End Sub