VBScript
'** Start Kurzbeschreibung ********************************* ' Kurzbeschreibung ' ================ ' Dies ist ein Beispiel für eine Kurzbeschreibung in einem FF-Skript. Dies ' ist ein Beispiel für eine Kurzbeschreibung in einem FF-Skript. Dies ist ' ein Beispiel für eine Kurzbeschreibung in einem FF-Skript. Dies ist ein ' Beispiel für eine Kurzbeschreibung in einem FF-Skript. ' ' Erläuterung ' ———– ' Die Beschreibung wird direkt in das Skript geschrieben und dann mit ' FileSytemObject dort ausgelesen. Das hat den Vorteil, dass der Text flüssig ' geschrieben werden kann und er auch direkt im Skript leicht lesbar ist. ' Außerdem kann er beliebig lang sein (fast beliebig lang). ' '** Ende Kurzbeschreibung **********************************

Dim objFs, Kurzbeschreibung, KBvorhanden, LaengeMax const SkriptName = "FFCFmt_Namensbestandteil.vbs" ' Skriptname

Sub Hilfetext ' ←- Aufruf der Hilfe

  if not KBvorhanden then    call KurzbeschreibungLesen
  if KBvorhanden then
      call KurzbeschreibungAnzeigen
  else
      msgbox "Keine Kurzbeschreibung gefunden!",,"Meldung"
  end if

End Sub

Sub KurzbeschreibungLesen

  on error resume next
  Const ForReading = 1
  Dim Skript, Anfang, Ende, Zeile

  Set objFS = CreateObject("Scripting.FileSystemObject")     ' FileSystemObject
  Set Skript = objFS.OpenTextFile(FF_GetScriptPath & "\" & SkriptName, ForReading, False)

  if err.number = 53 then
      msgbox "Wahrscheinlich wurde der Originalskriptname " & """" & SkriptName & """" & " abgeändert." & vbNewLine & _
             "Die Kurzbeschreibung kann daher nicht angezeigt werden.",,"Meldung"
      exit sub
  end if

  Do While Skript.AtEndOfStream <> True
      Zeile = Skript.ReadLine

      if instr(Zeile,"** Ende Kurzbeschreibung") > 0 then Ende = true
      if Ende then exit do

      if Anfang then Kurzbeschreibung = Kurzbeschreibung & mid(Zeile,2) & vbNewLine
      if len(Zeile)-1 > LaengeMax then LaengeMax = len(Zeile)-1

      if instr(Zeile,"** Start Kurzbeschreibung") > 0 then Anfang = true
  Loop
      msgbox LaengeMax
  if Anfang and Ende then KBvorhanden = true
  Skript.Close

End Sub

Sub KurzbeschreibungAnzeigen

  Dim Taste
  Dim Breite    : Breite = LaengeMax * 2.6 +15
  const Hoehe = 100
  const ES_READONLY = 2048
  const WS_VSCROLL = 2097152

  FF_AddDialog "Kurzbeschreibung",Breite,Hoehe
  FF_AddControl "Kurzbeschreibung","Beschreibung","EDIT",0,0,Breite,Hoehe-20
  FF_SetControlStyle "Kurzbeschreibung","Beschreibung", ES_READONLY + WS_VSCROLL
  FF_AddControl "Kurzbeschreibung","OK","BUTTON",Breite/2-15,Hoehe-15,30,10
  FF_SetControl "Kurzbeschreibung","Beschreibung",Kurzbeschreibung

  do
      Taste = FF_ShowDialog("Kurzbeschreibung")
      if Taste = "CANCEL" or Taste = "OK" then exit do
  loop
  call FF_CloseDialog("Kurzbeschreibung")

End Sub