Vraag : Hoe kan ik alle markeringen en commentaren binnen hen verwijderen?

Ik wil alle markeringen met inbegrip van de inhoud verwijderen binnen hen in een klasse file.

So als ik al volgend met één operation


blablabla


How wil verwijderen kan ik dit doen?

Antwoord : Hoe kan ik alle markeringen en commentaren binnen hen verwijderen?

maakte een fout in het manuscript, is hier werkende:
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“

vastgestelde fso = createobject („scripting.filesystemobject“)
Reeks objFolder = fso.GetFolder (CLASSES_FILES_FOLDER)
Voor elk objFile in objFolder.Files
	teken = ""
	selecteer (objFile) geval fso.GetExtensionName
		geval „Cs“: teken =“/„
		geval „vb“: teken =“ ''' „
	uitgezocht eind
	
	als symbolische <> "" toen
		Symbolische RemoveSummary objFile.Path,
	beëindig als
 Daarna

 
 sub RemoveSummary (symbolisch filename,)
	
	vastgestelde objSrcFile = fso.OpenTextFile (filename, 1)
	gegevens = ""
	gelijke = vals
	Doe tot objSrcFile.AtEndOfStream
		strLine = objSrcFile.Readline
		als InStr (strLine, teken & „ „) > 0  toen
			gelijke = waar
		anders 
			als gelijke = waar toen
				als InStr (symbolische strLine,) = 0 toen
					gelijke = vals
					gegevens = gegevens & strLine & vbNewLine
				beëindig als
			anders
				gegevens = gegevens & strLine & vbNewLine
			beëindig als
		beëindig als
	Lijn
	
	objSrcFile.Close
	
	vastgestelde objOutFile = fso.CreateTextFile (filename, 2)
	objOutFile.Write gegevens
	objOutFile.Close
 eind sub
Andere oplossingen  
 
programming4us programming4us