meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu der Vergleichsansicht

kurzanleitung-im-script [2011/02/11 12:50] (aktuell)
Zeile 1: Zeile 1:
 +====== Kurzanleitung im Script selbst hinterlegen ======
 +\\  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