|
CountTextInFile
(XAPI2000)
Deklaration
VB 6.0
Function CountTextInFile (ByVal FName As String, ByVal S As String,
ByVal CaseSensitive As Boolean) As Long
Deklaration VB.NET
Function CountTextInFile (ByVal FName As String, ByVal S As String,
ByVal CaseSensitive As Boolean) As Integer
Beskrivning
Räknar antal förekomster av en textsträng i en fil. 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 |
>= 0
-1
-2
-3 |
Antal förekomster av den
specificerade textsträngen (0 = ingen förekomst).
Felaktiga inparametrar.
Kan ej öppna filen.
Kan ej läsa data från filen. |
Se även
FindTextInFile |
Exempel (VB 6.0)
Dim N As Long
N = CountTextInFile("C:\Windows\Info.txt", "SamLogic", False)
If N >= 0 Then
MsgBox "Antal förekomster av textsträng: " + CStr(N) + "
st"
Else
MsgBox "Fel inträffade! Kan ej söka igenom filen!"
End If
|
