Pergunta : Arquivar o achado/substituir (ou emendar) a lima da corda/atualização

Eu tenho que fazer algumas mudanças a uma lima de propriedades de java.  Abaixo estão minhas exigências, meus problemas e meu código atual que trabalha quase.
** não tem que ser o vb **
Requirements:
1) Encontrar uma lima que esteja sempre na mesma posição para cada usuário - subfolder em originais do usuário e em mudança de Settings
2) ou emende uma corda dentro do file
Problems:
1) Não sure como aplicar %Homepath% ou pelo menos %UserName% no script
2) cada vez que o certificado funciona todo o s permanece já lá - eu termino acima com https - > httpss - > httpsss e assim on class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 notpretty System.IO " do class= " do id= " codeSnippet744344 do
class= do

Resposta : Arquivar o achado/substituir (ou emendar) a lima da corda/atualização

Segue um vb que substitua uma corda específica

Apenas necessidade de instantiate estas variáveis:

strTxtFile = “C:\Documents and Settings\” & strUser &” \ descanso do trajeto "
strMatch = “TEXTO A SER MODIFICADO”
strNewText = “TEXTO PARA SUBSTITUIR O ORIGINAL”
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

strAllLines não ofuscantes, strTxtFile, strMatch, objFSO, objFile, strNewText
Const ForReading = 1
Const ForWriting = 2

Ajustar o objNetwork = o CreateObject (“Wscript.Network”)
strUser = objNetwork.UserName


strTxtFile = “C:\Documents and Settings\” & strUser &” \ descanso do trajeto "
strMatch = “TEXTO A SER MODIFICADO”
strNewText = “TEXTO PARA SUBSTITUIR O ORIGINAL”


'Lê a lima de TXT
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Ajustar objFile = objFSO.OpenTextFile (strTxtFile, ForReading)
strAllLines = objFile.ReadAll
objFile.Close

o strNewText = substitui (strAllLines, strMatch, o strNewText)

objFile ajustado = objFSO.OpenTextFile (strTxtFile, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
Outras soluções  
 
programming4us programming4us