Gambas: Verschiedene kurze Beispielprogramme

Aus Wikibooks

Zurück zum Gambas-Inhaltsverzeichnis.

[Bearbeiten] Konverter (Text zu HTML-Code)

Dieses Programm verwandelt Text in Html-Zeichencode.

Sie Benötigen dazu:

• 1 Form
• 1 Button
• 1 Textlabel
• 2 Textboxen

Ergebnis AS String

PUBLIC SUB Button1_Click()
  i AS Integer
  Ergebnis = ""

  'Umwandlung vom "utf-8" Zeichensatz zum "ISO-8859-1" Zeichensatz
  Textbox2.Text = Conv$(Textbox1.Text, "utf-8", "ISO-8859-1")
  
  FOR i = 1 TO Len(Textbox2.Text)
  '"Len" gibt die Länge des übergebenen Strings zurück

    Ergebnis = Ergebnis & Chr$(38) & "#" & Asc( Textbox2.Text, i ) & ";"
    '"Asc" gibt den ASCII-Code des Zeichen an der angegebenen Stelle des Stings zurück
    'Chr$(38) ergibt das & Zeichen, hier nur verwendet um mögliche
    'Darstellungsprobleme im Browser zu vermeiden
  NEXT
  
  Textbox2.Text = Ergebnis
END

PUBLIC SUB TextBox1_Enter()
  Button1_Click
END

So sieht es dann aus: