Frage : Wie kann ich alle Umbauten und die Anmerkungen innerhalb sie entfernen?

Ich möchte alle Umbauten einschließlich den Inhalt innerhalb sie in einer Kategorie file.

So entfernen, wenn ich das ganzes folgende mit einem operation


blablabla


How entfernen möchte kann ich dies tun?

Antwort : Wie kann ich alle Umbauten und die Anmerkungen innerhalb sie entfernen?

machte einen Fehler im Index, ist hier die Funktion eine:
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:
const CLASSES_FILES_FOLDER = „c:\temp\files“

fso = createobject („scripting.filesystemobject“) einstellen
objFolder = fso.GetFolder (CLASSES_FILES_FOLDER) einstellen
Für jedes objFile in objFolder.Files
	Zeichen = ""
	den Fall fso.GetExtensionName vorwählen (objFile)
		„Cs“ umkleiden: Zeichen =“/„
		Fall „vb“: Zeichen =“ ''' „
	Ende auserwählt
	
	wenn Schein <> "" dann
		RemoveSummary objFile.Path, Zeichen
	beenden wenn
 Zunächst

 
 VorRemoveSummary (Dateiname, Zeichen)
	
	gesetztes objSrcFile = fso.OpenTextFile (Dateiname, 1)
	Daten = ""
	Gleiches = falsch
	Bis objSrcFile.AtEndOfStream tun
		strLine = objSrcFile.Readline
		wenn InStr (strLine, Zeichen u. „ ") > 0  dann
			Gleiches = ausrichtet et
		sonst 
			wenn Gleiches = dann ausrichtet
				wenn InStr (strLine, Zeichen) = 0 dann
					Gleiches = falsch
					Daten = Daten u. strLine u. vbNewLine
				beenden wenn
			sonst
				Daten = Daten u. strLine u. vbNewLine
			beenden wenn
		beenden wenn
	Schleife
	
	objSrcFile.Close
	
	gesetztes objOutFile = fso.CreateTextFile (Dateiname, 2)
	objOutFile.Write Daten
	objOutFile.Close
 Endenunterseeboot
Weitere Lösungen  
 
programming4us programming4us