|
FindTextInFile
(XAPI2000)
Deklaration
VB 6.0
Function FindTextInFile (ByVal FName As String, ByVal S As String,
ByVal CaseSensitive As Boolean) As Long
Deklaration VB.NET
Function FindTextInFile (ByVal FName As String, ByVal S As String,
ByVal CaseSensitive As Boolean) As Integer
Beskrivning
Letar efter en textsträng i en fil och returnerar position i
filen där första förekomsten av textsträngen finns. Parametern
FName specificerar filnamnet på den fil som ska genomsökas
och S innehåller textsträngen som funktionen ska söka efter.
Parametern CaseSensitive anger om funktionen ska skilja på
versaler och gemener eller inte under sökningen. Värdet True
medför att funktionen skiljer på versaler och gemener och False
att den inte gör det. Parametern S får vara högst 255 tecken
lång.
Returvärden
Funktionen returnerar en av följande värden:
.. |
|
Värde |
Beskrivning |
>= 1
0
-1
-2
-3 |
Position i filen där strängen finns.
Textsträngen finns inte i filen.
Felaktiga inparametrar.
Kan ej öppna filen.
Kan ej läsa data från filen. |
Se även
CountTextInFile |
Exempel (VB 6.0)
Dim X As Long
X = FindTextInFile("C:\Windows\Info.txt", "SamLogic", False)
If X >= 1 Then
MsgBox "Den sökta textsträngen finns vid offset: " + CStr(X) + "."
End If
If X = 0 Then
MsgBox "Textsträngen finns inte i filen"
End If
If X < 0 Then
MsgBox "Fel inträffade! Kan ej söka igenom filen!"
End If
|
