Vraag : Het dossier vindt/vervangt (of wijzig) koord/updatedossier

Ik moet sommige veranderingen in een de eigenschappen van Java aanbrengen dossier.  Hieronder zijn mijn vereisten, mijn problemen en mijn huidige code die bijna werkt.
** moet vb geen **
Requirements zijn:
1) bepaalt de plaats van een dossier dat altijd in de zelfde plaats voor elke gebruiker - subfolder in de Documenten van de gebruiker en/>2) Verandering is Settings
Problems:
1) niet zeker hoe te om %Homepath% of minstens %UserName% in script
2) toe te passen telkens als het manuscript geen s reeds daar blijft - het eind van I omhoog met https - > httpss - > httpsss en zo on in werking stelt
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

Imports System.IO
De invoer System.Text.RegularExpressions
Module deze

    Privé-bezit oShell als Voorwerp

    De gebruiker van het privé-bezit als Voorwerp

    Privé-bezit comp als Voorwerp

    Privé-bezit RegExpTest als Voorwerp

    Sub Leiding ()
        Schemerig aangaande als Nieuwe System.Text.RegularExpressions.Regex („/http/“)
        Schemerige lezer als StreamReader
        Schemerige reinigingsmachine als StreamWriter
        Schemerige reactie als Koord
        Schemerige titel als Koord
        Schemerige input als Koord
        oShell = CreateObject („WScript.Shell“)
        gebruiker = oShell.ExpandEnvironmentStrings („%USERNAME%“)
        comp = oShell.ExpandEnvironmentStrings („%ComputerName%“)
        Als System.IO.File.Exists („C:\Documents and Settings\samurijack\holdingpen\conf\these.properties“) = Waar toen
            lezer = Nieuwe StreamReader (Nieuwe FileStream („C:\Documents and Settings\samurijack\holdingpen\conf\these.properties“, 

FileMode.Open))
            reinigingsmachine = Nieuwe StreamWriter (Nieuwe FileStream („c:\these.properties“, FileMode.Create))
            input = reader.ReadLine ()
            
                input = reader.ReadLine ()
                cleaner.WriteLine (Regex.Replace (input, „HTTP“, „https“))
            Lijn tot reader.EndOfStream ()

            reinigingsmachine. Sluit ()
            lezer. Sluit ()
        Beëindig als

        Verduister filesys
        filesys = CreateObject („Scripting.FileSystemObject“)
        Als filesys.FileExists („c:\these.properties“) Dan
            filesys.CopyFile („c:\these.properties“, „C:\Documents and Settings\samurijack\holdingpen\conf\“)
        Anders
            titel = „Gevonden niet Dossier“
            reactie = MsgBox („de Brekers van het Spook van de Vraag“, MsgBoxStyle.OkOnly, titel)
        Eind als
    Sub van het eind

    Privé Functie WScript () als Voorwerp
        Werp Nieuwe NotImplementedException
    Beëindig Functie

    Privé Functie objRegExp () als Voorwerp
        Werp Nieuwe NotImplementedException
    Beëindig Functie

    Privé Functie strPattern () als Voorwerp
        Werp Nieuwe NotImplementedException
    Beëindig Functie

Beëindig Module

Antwoord : Het dossier vindt/vervangt (of wijzig) koord/updatedossier

Volgt een vb die een specifiek koord vervangt

Behoefte enkel om deze variabelen te concretiseren:

strTxtFile = „C:\Documents and Settings\“ & strUser &“ Rest \ van de Weg "
strMatch = „TE WIJZIGEN TEKST ZICH“
strNewText = „TEKST OM ORIGINEEL TE VERVANGEN“
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Schemerige objFile strTxtFile strAllLines, strMatch, objFSO, strNewText
Const ForReading = 1
Const ForWriting = 2

Reeks objNetwork = CreateObject („Wscript.Network“)
strUser = objNetwork.UserName


strTxtFile = „C:\Documents and Settings\“ & strUser &“ Rest \ van de Weg "
strMatch = „TE WIJZIGEN TEKST ZICH“
strNewText = „TEKST OM ORIGINEEL TE VERVANGEN“


'Leest het Txt- dossier
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Vastgestelde objFile = strTxtFile objFSO.OpenTextFile (, ForReading)
strAllLines = objFile.ReadAll
objFile.Close

strNewText = vervang (strAllLines, strMatch, strNewText)

Plaats objFile = strTxtFile objFSO.OpenTextFile (, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
Andere oplossingen  
 
programming4us programming4us