Rekisteröidy

Ilmoitukset

Ladataan…

    Näytä kaikki

    INI tiedoston luku VB6:lla

    Tämä koodi lukee INI tiedoston:

    Option Explicit
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

    Function ReadINI(Section As String, KeyName As String) As String
    Dim sRet As String
    sRet = String(255, Chr(0))
    ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName$, "", sRet, Len(sRet), App.Path & "\Programs.ini"))
    End Function

    INI tiedoston sisältö näyttää taas puolestaan tämän näköiseltä:

    [msimn.exe]
    FileName=msimn.exe
    Path=C:\Program Files\Outlook Express\msimn.exe
    [test.exe]
    FileName=text.exe
    Path=C:\text.exe

    Nyt kysyisinkin kuin voin hakea kaikki tiedostonimet tuosta INI tiedostosta esim. [msimn.exe], [test.exe] että ohjelmani osaisi listata ne kaikki olisipa niitä kuinka paljon tahansa muotoon:
    msimn.exe
    test.exe
    2273
    Äänestä

    Muut lukivat myös

    Vastaukset 2

    Vanhimmat

    Sillä keksin itse ratkaisun tuon ongelmaan :)

    Äänestä

    Toivottavasti keksit API-kutsut:

    GetPrivateProfileSection
    ja
    GetPrivateProfileSectionNames

    Äänestä

    Odottaa vastausta

    Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.

    Luetuimmat keskustelut

    Kommentoi aloitusta

    probleema kirjoitti:

    Tämä koodi lukee INI tiedoston:

    Option Explicit
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

    Function ReadINI(Section As String, KeyName As String) As String
    Dim sRet As String
    sRet = String(255, Chr(0))
    ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName$, "", sRet, Len(sRet), App.Path & "\Programs.ini"))
    End Function

    INI tiedoston sisältö näyttää taas puolestaan tämän näköiseltä:

    [msimn.exe]
    FileName=msimn.exe
    Path=C:\Program Files\Outlook Express\msimn.exe
    [test.exe]
    FileName=text.exe
    Path=C:\text.exe

    Nyt kysyisinkin kuin voin hakea kaikki tiedostonimet tuosta INI tiedostosta esim. [msimn.exe], [test.exe] että ohjelmani osaisi listata ne kaikki olisipa niitä kuinka paljon tahansa muotoon:
    msimn.exe
    test.exe

    Anonyymi
    5000

    Ilmoita asiaton sisältö

    • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

    • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

    • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

    • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

    • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

    • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

    Jaa keskustelu