Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Set objFSO = CreateObject("Scripting.FileSystemObject") 'object to first file Const intForReading = 1 strFile1 = "Text.txt" 'Read file location, name strFile2 = "Disabled.cvs" 'write file location, name Set objFile1 = objFSO.OpenTextFile(strFile1, intForReading, False) arr1 = Split(objFile1.ReadAll, VbCrLf) 'bring file into array objFile1.Close 'closes objec to read file cnt = ubound(arr1) 'sets count to array length Set objFile2 = objFSO.CreateTextFile(strFile2, True) 'object for write file for i=0 to cnt 'loop for writing arr2 = Split(arr1(i), "=") arr3 = Split(arr2(1), ",") objFile2.WriteLine arr3(0) 'writes to file 'increments array count Next objFile2.Close MsgBox "Done"
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.