Bruger #6130, 74 år gammel
Udvikleren.dk kompetencer for Bruger #6130
Bruger referencer
ini loader VB
Type: Programmering
Lavet med: VBA/VB
|
Dette er bare noget kode jeg skal have et sted da denne computer jeg bruger skal reindstalleres... Den er lavet til at kunne importere *.ini filer. Jeg prøvede at få den til at gemme men det endte i noget lort...
Den gemmes ikke med linjeskif <-- øv-
Kan sætte ind i et modul. Jeg vil lave den til en *.DLL fil. Tak til udviklerens Artikler om filhåndtering
Her er koden:
Private IniFile As String
Function SetIni(IniPath As String)
IniFile = IniPath
End Function
Function LoadIni(Section As String, Setting As String) As String
Dim seclench As Long
seclench = Len(Section)
Dim intFilNummer As Integer
Dim strData As String
Dim lngFilLængde As Long
Let intFilNummer = FreeFile
Open IniFile For Binary As #intFilNummer
Let lngFilLængde = LOF(intFilNummer) 'find længde
Let strData = Space$(lngFilLængde) 'indstil buffer
Get #intFilNummer, , strData 'læs hele molevitten
Close #intFilNummer
Dim i As Long
Dim start As Long
For i = 1 To lngFilLængde + 1
If Mid(strData, i, 1) = "" Then
GoTo eof
End If
If LCase(Mid(strData, i, seclench)) = LCase(Section) Then
start = i
GoTo found
End If
Next i
eof:
Err.Raise 29, Err.Source, "Warning: Section was not found: " & Section
Exit Function
found:
Dim tmp As String
Dim c As Long
c = start
Do Until LCase(Mid(strData, c, Len(Setting & "="))) = LCase(Setting & "=")
If LCase(Mid(strData, c, 1)) = "" Then: Err.Raise 30, Err.Source, "Warning: Setting was not found: " & Setting
c = c + 1
Loop
Do Until LCase(Mid(strData, c, 1)) = ";"
If LCase(Mid(strData, c, 1)) = "" Then: Err.Raise 30, Err.Source, "Warning: Setting was not found: " & Setting
tmp = tmp & Mid(strData, c, 1)
c = c + 1
Loop
Dim record As String
Dim bnow As Boolean
Dim BWAIT As Boolean
For i = 1 To Len(tmp)
BWAIT = False
If Mid(tmp, i, 1) = "=" Then
bnow = True
BWAIT = True
End If
If bnow And Not BWAIT Then
record = record & Mid(tmp, i, 1)
End If
Next i
LoadIni = record
Exit Function
End Function
|
Denne liste viser den angivne brugers karma indenfor de tags hvor brugeren har deltaget. For hvert tag sammenlignes der med den bruger der har mest karma inden for det pågældende tag og i forhold til det, beregnes en rating fra 1 til 5.
Denne rating er altså baseret på hvor dygtig en bruger er inden for et specifikt tag, sammenlignet med den dygtigste bruger inden for dette tag.
Brugeren skal have mindst 10 karma inden for det pågældende tag, for at det inkluderes på listen, som er et udtryk for hvilke tags en bruger deltager i samt er dygtig til.