Frage : Entdeckung archivieren/(oder ändern), Schnur-/Updateakte ersetzen

Ich muss etwas Änderungen an einer Java-Eigenschaftenakte vornehmen.  Unter sind meine Anforderungen, meine Probleme und mein gegenwärtiger Code, der fast arbeitet.
** nicht sein muss vb **
Requirements:
1) lokalisieren eine Akte, die immer in der gleichen Position für jeden Benutzer - Subfolder in den Dokumenten des Benutzers und Settings
2) in der Änderung ist oder eine Schnur innerhalb des file
Probleme ändert:
1) nicht sure, wie man %Homepath% oder %UserName% mindestens im script
2), jedes Mal wenn der Index jedes mögliches s bereits dort laufen lässt, bleibt - ich beende oben mit https - > httpss - > httpsss und so on anwendet 
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:
6:
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
Importe System.Text.RegularExpressions
Modul diese

    Privateigentum oShell als Gegenstand

    Privateigentumbenutzer als Gegenstand

    Privateigentumbaut. als Gegenstand

    Privateigentum RegExpTest als Gegenstand

    Vorhauptleitung ()
        Schwach bezüglich als neues System.Text.RegularExpressions.Regex („/http/")
        Schwacher Leser als StreamReader
        Schwaches Reinigungsmittel als StreamWriter
        Schwache Antwort als Schnur
        Schwacher Titel als Schnur
        Schwacher Eingang als Schnur
        oShell = CreateObject („WScript.Shell“)
        Benutzer = oShell.ExpandEnvironmentStrings („%USERNAME%")
        Baut. = oShell.ExpandEnvironmentStrings („%ComputerName%")
        Wenn System.IO.File.Exists („C:\Documents and Settings\samurijack\holdingpen\conf\these.properties ") = dann ausrichten
            Leser = neues StreamReader (neues FileStream („C:\Documents and Settings\samurijack\holdingpen\conf\these.properties“, 

FileMode.Open))
            Reinigungsmittel = neues StreamWriter (neues FileStream („c:\these.properties“, FileMode.Create))
            Eingang = reader.ReadLine ()
            Tun
                Eingang = reader.ReadLine ()
                cleaner.WriteLine (Regex.Replace (Eingang, „HTTP“, „https“))
            Schlingen sich bis reader.EndOfStream ()

            Reinigungsmittel. Schließen ()
            Leser. Schließen ()
        Beenden wenn

        Filesys verdunkeln
        filesys = CreateObject („Scripting.FileSystemObject“)
        Wenn filesys.FileExists („c:\these.properties ") dann
            filesys.CopyFile („c:\these.properties“, „C:\Documents and Settings\samurijack\holdingpen\conf\ ")
        Sonst
            Titel = „Akte nicht gefunden“
            Antwort = MsgBox („Anruf-Geist-Kerle“, MsgBoxStyle.OkOnly, Titel)
        Beenden wenn
    Unterseeboot beenden

    Private Funktion WScript () als Gegenstand
        Wurf neues NotImplementedException
    Enden-Funktion

    Privates Funktion objRegExp () als Gegenstand
        Wurf neues NotImplementedException
    Enden-Funktion

    Private Funktion strPattern () als Gegenstand
        Wurf neues NotImplementedException
    Enden-Funktion

Enden-Modul

Antwort : Entdeckung archivieren/(oder ändern), Schnur-/Updateakte ersetzen

Folgt einem vb, das eine spezifische Schnur ersetzt

Gerade Notwendigkeit instantiate diese Variablen:

strTxtFile = „C:\Documents and Settings\“ u. strUser u.“ \ Rest des Weges "
strMatch = „GEÄNDERT ZU WERDEN TEXT“
strNewText = „TEXT, ZUM VON VORLAGE ZU ERSETZEN“
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

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

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


strTxtFile = „C:\Documents and Settings\“ u. strUser u.“ \ Rest des Weges "
strMatch = „GEÄNDERT ZU WERDEN TEXT“
strNewText = „TEXT, ZUM VON VORLAGE ZU ERSETZEN“


'Liest die TXT Akte
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objFile einstellen = objFSO.OpenTextFile (strTxtFile, ForReading)
strAllLines = objFile.ReadAll
objFile.Close

strNewText = ersetzen (strAllLines, strMatch, strNewText)

Gesetztes objFile = objFSO.OpenTextFile (strTxtFile, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
Weitere Lösungen  
 
programming4us programming4us