Domino 9 und frühere Versionen > ND6: Entwicklung

Anhang (txt) durchsuchen und Werte übernehmen

<< < (2/4) > >>

Thomas Schulte:
Na dann mit Line input und Split und einer kleinen Schleife und length und isnumeric(2 bis 7)
oder mit
Line Input, Instr (und ein wenig Logik um mögliche Mehrfachvorkommen zu überprüfen) und isnumeric dawodu gerade gefunden wurdest (2bis7).

Ach ja, das ganze ergänzt um File Handling.

Findet man übrigens alles in der Online Hilfe.

robertpp:
Das sollte doch so in der Richtung funktionieren:

   datfile="File.txt"
   FileNum = FreeFile()
   Open datFile for Input as #FileNum
   Do While Eof(FileNum)<>-1

     Input #FileNum, qString

     if Left(qString,2) = "FE" then
        
Msgbox "gefunden"
      
      
      end if
   Loop

robertpp:
Aja Thomas so hätte es man auch erklären können.  ;D

Aber der Rest ist ja dann doch nur noch Verschönerung

Thomas Schulte:
Lass ihn doch auch ein wenig selber denken.  ;)

Roberts Methode funktioniert übrigens dann und nur dann, wenn die Dateinamen immer an Anfang einer Zeile stehen.

eknori:
Könnte man auch mit REGEXP machen  ;D

Class RegExp

   '''   RegExp -- use VBScript RegExp object to provide regular expressions
   '
   '   2004-06-03   David Phillips, rfdinc.com   First version.

   Public matches As Variant
   Public oRegExp As Variant

   ' VBScript RegExp properties
   Public Pattern As String
   Public IgnoreCase As Boolean ' default = False
   Public Global As Boolean ' default = False

   Sub new ()
      Set oRegExp = CreateObject ("VBScript.RegExp")
   End Sub

   Public Function Match (source As String, pattern As String, matches As Variant) As Boolean
      ' RegEx.Match -- scan source for pattern, set matches collection and return true if any
      ' (Can't call it Execute as that collides with LotusScript built-in function and statement.)
      With oRegExp
         .Pattern = pattern ' regular expression to match
         .IgnoreCase = IgnoreCase
         .Global = Global
         Set matches = .Execute (source) ' do match
         Match = (Not 0 = matches.count)
      End With
   End Function

   Public Function Replaces (source As String, pattern As String, replacement As String) As String
      ' RegEx.Replaces -- scan source for pattern, if found substitute replacement, return result
      ' (Can't call it Replace as that collides with LotusScript built-in function.)
      With oRegExp
         .Pattern = pattern
         .IgnoreCase = IgnoreCase
         .Global = Global
         Replaces = .Replace (source, replacement) ' do replace
      End With
   End Function

   Public Function Test (source As String, pattern As String) As Boolean
      ' RegEx.Test -- scan source for pattern, return true if found
      With oRegExp
         .Pattern = pattern
         .IgnoreCase = IgnoreCase
         Test = .Test (source)
      End With
   End Function

End Class

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete