Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Select Case
Autor: Martin01
Datum: 21.01.03 15:35
Private Filter As String Private Sub INI() Filter = ".exe01.com01.bat01" & _ ".dll02.gif02.sys02" & _ ".zip03.pak03.tar03" End Sub Public Function GetErwStatus(Erw) As Integer Dim Pos As Long Dim Antwort As Integer Antwort = 0 If Trim(Erw) > 4 Then Pos = InStr(1, Filter, Right$(Erw, 4), vbTextCompare) If Pos > 0 Then Antwort = CInt(Mid$(Filter, Pos + 4, 2)) End If End If GetErwStatus = Antwort End Function Sub Main() INI '... '... MsgBox GetErwStatus("pack.exe") '... Select Case GetErwStatus(Datei) Case 1 '.exe .com .bat '... Case 2 '.dll .gif .sys '... Case 3 '.zip .pak .tar '... End Select 'Mit Enum kann die Antwort leserlicher werden. 'Mit einer Sammlung kann die das Füllern leserlicher werden. End Sub

Select Case	119	luet1	20.01.03 08:46
Re: Select Case	328	Dieter	20.01.03 08:59
Re: Select Case	320	frankEvb	20.01.03 09:08
Re: Select Case	58	luet1	20.01.03 09:59
Re: Select Case	340	Dieter	20.01.03 10:21
Re: Select Case	53	luet1	20.01.03 11:41
Re: Select Case	43	Martin01	21.01.03 15:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen