Dim fso1
Dim sFolderName
Dim sFileName
Dim sFilePath
Dim sCurString
Dim sAllStrings()
Dim nN, ni
Dim sSearchText
Dim sChangedText
Dim bSearchInString
Dim nFileNum
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
FolderName = "C:\Work" 'имя папки, в которой выполняется поиск и замена
FileName = ""
CurString = ""
SearchText = "C:\123" 'текст строки, которая ищется (регистрозависимый!)
ChangedText = "D:\123" 'текст на который меняется найденная строка
If Not fso1.FolderExists(FolderName & "\new_files") Then
Set objFolder = fso1.CreateFolder(FolderName & "\new_files")
End If
If Not fso1.FolderExists(FolderName & "\old_files") Then
Set objFolder = fso1.CreateFolder(FolderName & "\old_files")
End If
If Right(FolderName, 1) <> "" Then
FolderName = FolderName & ""
End If
For Each File In fso1.GetFolder(FolderName).Files
N = 0
FilePath = FolderName & File.Name
Set TxtStream = fso1.OpenTextFile(FilePath)
Do While Not (TxtStream.atEndOfStream)
N = N + 1
ReDim Preserve AllStrings(N)
CurString = TxtStream.ReadLine
If CurString = SearchText Then
CurString = ChangedText
End If
N = N - 1
AllStrings(N) = CurString
N = N + 1
Loop
TxtStream.Close
Set MyFile = fso1.CreateTextFile(FolderName & "new_files" & File.Name)
For i = 0 To N-1
MyFile.WriteLine AllStrings(i)
Next
fso1.MoveFile FilePath, FolderName & "old_files" & File.Name
Next
Dim fso1
Dim sFolderName
Dim sFileName
Dim sFilePath
Dim sCurString
Dim sAllStrings()
Dim nN, ni
Dim sSearchText
Dim sChangedText
Dim bSearchInString '10
Dim nFileNum
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
FolderName = "C:\Work" 'имя папки, в которой выполняется поиск и замена
FileName = ""
CurString = ""
SearchText = "C:" 'текст строки, которая ищется (регистрозависимый!)
ChangedText = "D:" 'текст на который меняется найденная строка
If Not fso1.FolderExists(FolderName & "\new_files") Then '20
Set objFolder = fso1.CreateFolder(FolderName & "\new_files")
End If
If Not fso1.FolderExists(FolderName & "\old_files") Then
Set objFolder = fso1.CreateFolder(FolderName & "\old_files")
End If
If Right(FolderName, 1) <> "" Then
FolderName = FolderName & ""
End If
For Each File In fso1.GetFolder(FolderName).Files '30
N = 0
FilePath = FolderName & File.Name
Set TxtStream = fso1.OpenTextFile(FilePath)
Do While Not (TxtStream.atEndOfStream)
N = N + 1
ReDim Preserve AllStrings(N)
CurString = TxtStream.ReadLine
For i = 0 To Len(CurString)
If Left(Right(CurString,Len(CurString)-i),Len(SearchText)) = SearchText Then
CurString = Left(CurString,i) & ChangedText & Right(CurString,Len(CurString) - i - Len(SearchText))
i=0
End If
Next
N = N - 1
AllStrings(N) = CurString
N = N + 1
Loop
TxtStream.Close
Set MyFile = fso1.CreateTextFile(FolderName & "new_files" & File.Name)
For i = 0 To N-1
MyFile.WriteLine AllStrings(i)
Next
fso1.MoveFile FilePath, FolderName & "old_files" & File.Name
Next
sed -i 's/D:\\123/C:\\123/' A/*.txt
sed -i 's/D:\\123/C:\\123/' A/*.txt
sed -e "/s/искомое слово/замена этого слова/g" 0.e4.txt > 0.e4.txt
=ЊрclHЉё·®А И2ЗЙµыыяE·™Mїm<уC:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\(14) [Dj KustРѕov] Дорожка 14.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\(R)Rihanna_ft_Jay-z-Umbrella.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\001. Sabrina - Boys.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\003. Backstreet_Boys - Everybody_Backstreet_s_Back.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\004. Activate - Let the rhitm teke control.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\004_Григорий Лепс - Р СЋРјРєР° РІРѕРґРєРё РЅР° столе.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\007 - 50 Cent - Candy Shop (Feat. Olivia) (Produced By Scott.Mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\01 Light.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\012. S. ZHukov - Kapali slezi.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\016 Света Р˜ Баста - Дорога Р’ РђСЌСЂРѕРїРѕСЂС‚.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\02 Dj Romeo - My Sound CD2.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\020 Р’РёР° Гра - My Emancipation -РєРѕРїРёСЏ.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\021 - Status Quo - In the army now.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\03 3 Elements - Come In (Original Mix).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\030 - Bad Boys Blue - You're a woman.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\032 - C.C. Catch - I can loose my heart to night.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\035 Винтаж - Одиночество Любви -РєРѕРїРёСЏ.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\04 Дорожка 4.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\048 Usher feat Ludacris -Yeah.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\05 - GLADIATOR - NOW WE ARE FREE (RADIO EDIT).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\05. Buttons.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\053 Света Р˜ Р˜РЅС„РёРЅРёС‚Рё - РќРµ Говори -РєРѕРїРёСЏ.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\061 Gunther -Touche me.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\068 Р˜РЅС„РёРЅРёС‚Рё Feat. D.I.P Project - Останься До Рассвета -РєРѕРїРёСЏ.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\070 Катя Чехова - РЇ Люблю -РєРѕРїРёСЏ.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\081. Adrenalin - Kovilyai potihonechku.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\085 Kristian Leontiou -Story of my life.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\086_Nicole Scherzinger feat. T.I. - Whatever You Like.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\087. - FISHERSPOONER – NEVER WIN (BENASSI MIX).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\088 РњР˜РЎРЎР˜РЇ РќР•Р’Р«РџРћР›РќР˜РњРђ 2_LIMP BIZKIT - TAKE A LOOK AROUND.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\08_Blue - Curtain Falls.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\099 Таня - Точки Над Р˜.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\10 Дорожка 10.wmaC:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\100 Calogero_ Face A La Mer (Avec Passi).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\112 Lexter - Freedom To Love.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\127 Р’.Орлов - Растаман.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\19 - BENASSI BROS feat. SANDY - Illusion.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\23 Gregorian - Voyage voyage.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\25-Justin Timberlake--SexyBack.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\34_Raw Jawz - Tamale (House Mixz radio edit).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\4million tanks-РѕРґР° РЅ.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\=Infiniti_-_klub.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Ahra - Karie glaza.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\akcent_-_on_and_on_stay_with_me_dj_rush_dfm_rmx.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Aksioma Project - Liubvi.Net (Dj Zam Remix)_www.housemafiozo.com_.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\AlbumArtSmall.jpgC:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\aleksandr_ribak_-_fairytale.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\anastasiya_prihodko_-_mamo__russko-ukrainskaya_versiya_.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\arash_and_helene_-_pure_love_mary_angel_radio_edit.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\autorun.infC:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Banderos-Pro_krasivuju_zhiznq.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Benefit - Sex Sells.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\BOMFUNK MC'S - Freestyler.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\BOMFUNK MC'S - Uprocking beats.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Crystal Method - Born Too Slow.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\David Guetta Feat. Jd Davis World Is Mine Sherwood Electr.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\DJ Alex Koks SOS Mix vol 2 06.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\DJ Antonio - You're In The Army Now 2009 (Tru Tru Vocal Mix)_www.housemafiozo.com_.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Dj Gold Sky feat Fast Food - Ya muzika (Dj Gold Sky mix)+++++++++++++++++++++++++.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\DJ Shevtsov & DJ Miller - Tvoy Gorod ne spit+++++++++++++.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Dj.Boyko - Глубоко.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\dj_piligrim_-_ti_menya_zabud_.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\dj_pilligrim_-_ti_menya_zabud.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\drago_feat[1]._new_union_-_lapat_bab_new_2009.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Eros Ramazzotti & Ch.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\flo_rida_-_right_round.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Folder.jpgC:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Fort Minor & Styles Of Beyond - Remember The Name.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Grigorij_Leps-Ya_tebe_ne_verju.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Gritiz.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\inna_-_hot_club_version_by_play_and_win.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\jay_sean_-_ride_it.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\klaas_vs_guru_josh_project_-_how_does_it_feel_infinity_2009.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Morandi - Save me.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Panch(angarsk)04.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Papa RoР°ch.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\pavel_volya_-_barviha.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Pitbull - I Know You Want Me (DJ Houseman's Extended Mix).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\promodj_Dj_Renat_feat_MC_Magnum_Proschay.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\R-Tem - Voiceless (Kazantip 2005 Mix).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Roger_Sanchez-Lost_2.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Scooter - Fire.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\SCOOTER - How much is the fish.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Scorpions - Wind of change.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\st__moi_slova[_mp3ex.net].mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\The Fast And The Furious Tokyo Drift.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\The Rasmus - In the shadows.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Ulqjana_Karakoz-Angely_zdesq.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Vintazh_Eva_DJ_Masta_ru_bootleg_mix.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Vitalik_Vitamin_vs_Titomir_Timati_Dirty_Bitches_Club_Mix.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\yohanna_-_is_it_true_eurovision_2009-iceland.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Амазонка - Хочу тебя.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Бутырка - Аттестат.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Бутырка - Запахло весной.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\дороже золота (1).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\кайф (13).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Лениград-СЃРІРѕР±РѕРґР°.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Мираж Р˜ Студия 54 - Музыка Нас Связала.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Михаил Боярский - Спасибо Родная(05).mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\РќР°-РќР° - Фаина.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Настя Задорожная - РЇ Больше РќРµ Хочу Верить (DJ Shevtsov & Em.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Ненси - Дым сигарет.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\Перл Харбор - Nightwish - Wi.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\РџРѕ рестораном.mp3C:\Alex\РњРѕСЏ музыка\РѕС‚ РњРђРљРЎРђ\РЎРўРђРЎ ПЬЕХА Р˜ Р“Р Р˜Р“РћР Р˜Р™ ЛЕПС - РћРќРђ РќР• РўР’РћРЇ.mp3
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.