07. oktober 2005 - 09:07Der er
8 kommentarer og 1 løsning
Skrive inde i midten af en fil med VB
Hej jeg vil gerne haver erstattet en linie i denne fil med noget andet, eller det vil sige der skal bare stå noget andet efter USERNAME=, det jeg vil have til at stå skal er varierende og jeg vil derfor gerne have en input box op hvir i jeg kan skrive det.
håber nogle herinde gider at hjælpe mig, er sku lidt lost lige her.
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Slettet bruger
07. oktober 2005 - 09:15#1
Der er ikke som sådan nogen måde at skrive i midten af en fil direkte. Måden er at med skal flytte det efterfølgende skrive det man ønsker og skrive det resterende. Altså kort sagt selv lave plads i filen.
I din situation hvor du har en setup fil kunne det være praktisk, hvis du iøvrigt i andre sammenhænge skal læse og behandle indholdet, at lave en Class som kan læse filen og skrive filer. Altså du indlæser setup til hukommelsen foretager ændringen og overskriver filen med den version som ligger i hukommelsen.
dette er den eneste ændring vi skal lave for den er bruger specifik og da vi i virksomheden bruger Novell til users så skal bruger navnet f.eks. være .mhs.it.ran.koncern og det kan brugerne ikke selv finde ud af, så derfor skal vi her fra kunne foruddefinere brugernavn i denne fil... og jeg ved det kan lade sig gøre at hente det ud i arry og derefter ændre den linie man gerne vil have ændret, og så skrive det hele til filen igen.
Synes godt om
Slettet bruger
07. oktober 2005 - 09:23#3
Ja, men så har du også løsningen. Tro det eller ej det er sådan den salgs håndteres.
Dim Data() As Variant, I As Integer, N As Integer, Bruger As String Datafil = "C:\test\bruger.ini" Bruger = InputBox("Indtast bruger") I = 0 Open Datafil For Input As #1 Do ReDim Preserve Data(I) Line Input #1, Data(I) I = I + 1 Loop Until EOF(1) Close
For N = 0 To UBound(Data) If Data(N) = "UserPassword=" Then Data(N) = Data(N) & Bruger End If Next
Open Datafil For Output As #1 For I = 0 To UBound(Data) Print #1, Data(I) Next Close
jeg har lige prøvet at køre denne, men jeg kan ikke få den til at virke, jeg fåer fejlmeldingen. linie 1, slutning på sætning var ventet det er denne linie
Dim Data() As Variant, I As Integer, N As Integer, Bruger As String
lige før As Variant
kan det være mig der ikke kan finde ud af copy paste?? :P
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
