Questione : Come posso rimuovere loro tutte le modifiche del e le osservazioni?

Voglio rimuovere tutte le modifiche del compreso il soddisfare all'interno di loro in un codice categoria file.

So se voglio rimuovere tutto il quanto segue con un operation


blablabla


How posso io fare questo? class= del

Risposta : Come posso rimuovere loro tutte le modifiche del e le osservazioni?

ha fatto un errore nello scritto, qui è il funzionamento uno:
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:

const CLASSES_FILES_FOLDER = “c:\temp\files„

regolare il fso = il createobject (“scripting.filesystemobject„)
Regolare il objFolder = fso.GetFolder (CLASSES_FILES_FOLDER)
Per ciascuno objFile in objFolder.Files
	segno = ""
	selezionare il caso fso.GetExtensionName (objFile)
		mettere “il Cs„: segno =„/“
		caso “vb„: segno =„ ''' “
	estremità prescelta
	
	se "" <> simbolico allora
		RemoveSummary objFile.Path, segno
	concluder se
 Dopo

 
 RemoveSummary secondario (nome di schedario, segno)
	
	objSrcFile stabilito = fso.OpenTextFile (nome di schedario, 1)
	dati = ""
	fiammifero = falso
	Fare fino a objSrcFile.AtEndOfStream
		strLine = objSrcFile.Readline
		se InStr (strLine, segno & “ ") > 0  allora
			il fiammifero = allinea
		altrimenti 
			se il fiammifero = allora allinea
				se InStr (strLine, segno) = 0 allora
					fiammifero = falso
					dati = dati & strLine & vbNewLine
				concluder se
			altrimenti
				dati = dati & strLine & vbNewLine
			concluder se
		concluder se
	Ciclo
	
	objSrcFile.Close
	
	objOutFile stabilito = fso.CreateTextFile (nome di schedario, 2)
	dati di objOutFile.Write
	objOutFile.Close
 sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us