Pytanie : Segregować Znalezisko/Zamieniać (lub Nowelizować) sznurek/aktualizacja kartoteka

I musieć niektóre zmiana java własność kartoteka.  Pod być mój wymaganie, mój problem i mój aktualny kod który prawie pracować.
** musieć vb **
Requirements:
1) Lokalizować kartoteka który być zawsze w the ten sam lokacja dla ten sam użytkownik - subfolder w użytkownik Dokument i Settings
2) Zmiana lub nowelizować sznurek wśród the file
Problems:
1) Pewny dlaczego %Homepath% lub przynajmniej %UserName% w the script
2) Każdy czas the pismo biegać jakaś s już tam  zostawać - I kończyć tam  z https - > httpss - > httpsss i w ten sposób on 
(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
Import System.Text.RegularExpressions
Moduł Te

    Własność Prywatna oShell Przedmiot

    Własność Prywatna użytkownik Przedmiot

    Własność Prywatna comp Przedmiot

    Własność Prywatna RegExpTest Przedmiot

    Okręt podwodny Magistrala ()
        Ciemnawy re Jako Nowy System.Text.RegularExpressions.Regex ("/http/")
        Ciemnawy czytelnik Jako StreamReader
        Ciemnawy cleaner Jako StreamWriter
        Ciemnawy odpowiedź Sznurek
        Ciemnawy tytuł Sznurek
        Ciemnawy wkład Sznurek
        oShell = CreateObject ("WScript.Shell")
        użytkownik = oShell.ExpandEnvironmentStrings ("%USERNAME%")
        comp = oShell.ExpandEnvironmentStrings ("%ComputerName%")
        Jeżeli System.IO.File.Exists ("C:\Documents and Settings\samurijack\holdingpen\conf\these.properties ") = Prawdziwy Wtedy
            czytelnik = Nowy StreamReader (Nowy FileStream ("C:\Documents and Settings\samurijack\holdingpen\conf\these.properties", 

FileMode.Open))
            cleaner = Nowy StreamWriter (Nowy FileStream ("c:\these.properties", FileMode.Create))
            wkład = reader.ReadLine ()
            
                wkład = reader.ReadLine ()
                cleaner.WriteLine (Regex.Replace (wkład, "http", "https"))
            Zapętlać Do reader.EndOfStream ()

            cleaner. Zamykać ()
            czytelnik. Zamykać ()
        Kończyć Jeżeli

        Ćmić filesys
        filesys = CreateObject ("Scripting.FileSystemObject")
        Jeżeli filesys.FileExists ("c:\these.properties ") Wtedy
            filesys.CopyFile ("c:\these.properties", "C:\Documents and Settings\samurijack\holdingpen\conf\ ")
        Inny
            tytuł = "Kartoteka Znajdować"
            odpowiedź = MsgBox ("Wywoławczy Duch Koleś", MsgBoxStyle.OkOnly, tytuł)
        Kończyć Jeżeli
    Kończyć Okręt podwodny

    Intymny Funkcja WScript () Przedmiot
        Rzut Nowy NotImplementedException
    Końcówka Funkcja

    Intymny Funkcja objRegExp () Przedmiot
        Rzut Nowy NotImplementedException
    Końcówka Funkcja

    Intymny Funkcja strPattern () Przedmiot
        Rzut Nowy NotImplementedException
    Końcówka Funkcja

Końcówka Moduł

Odpowiedź : Segregować Znalezisko/Zamieniać (lub Nowelizować) sznurek/aktualizacja kartoteka

Podążać vb który zamieniać odmianowy sznurek

Właśnie potrzeba instantiate te zmienna:

strTxtFile = "C:\Documents and Settings\" & strUser &" \ Odpoczynek the Ścieżka "
strMatch = "TEKST"
strNewText = "TEKST ORYGINAŁ"
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Ciemnawy strAllLines, strTxtFile, strMatch, objFSO, objFile, strNewText
Const ForReading = (1)
Const ForWriting = 2

Ustalony objNetwork = CreateObject ("Wscript.Network")
strUser = objNetwork.UserName


strTxtFile = "C:\Documents and Settings\" & strUser &" \ Odpoczynek the Ścieżka "
strMatch = "TEKST"
strNewText = "TEKST ORYGINAŁ"


'Czytać the TXT kartoteka
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
Ustalony objFile = objFSO.OpenTextFile (strTxtFile, ForReading)
strAllLines = objFile.ReadAll
objFile.Close

strNewText = Zamieniać (strAllLines, strMatch, strNewText)

Ustalony objFile = objFSO.OpenTextFile (strTxtFile, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
Inne rozwiązania  
 
programming4us programming4us