Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
JoinTXT "1 папка с файлами ТУТ Прописываем папку с фйлами " JoinTXT "2 папка с файлами ТУТ Прописываем папку с фйлами " JoinTXT "3 папка с файлами ТУТ Прописываем папку с фйлами " JoinTXT "4 папка с файлами ТУТ Прописываем папку с фйлами "
Sub JoinTXT(strFolderPath) Dim objFolder, objFile, strTempText, strAllText
If objFSO.FolderExists(strFolderPath) Then Set objFolder = objFSO.GetFolder(strFolderPath) For Each objFile In objFolder.Files strExt = LCase(objFSO.GetExtensionName(objFile.Path)) If (strExt = "txt") Or (strExt = "log") Then strTempText = ReadFile(objFile.Path) If strTempText <> "" Then strAllText = strAllText & strTempText & vbCrLf End If 'objFile.Delete True ' удалить файл End If Next End If
Set objFile = objFSO.CreateTextFile(strFolderPath & "\AllTextFiles.txt") objFile.Write strAllText objFile.Close End Sub
MsgBox "выход" Set objFSO = Nothing Wscript.quit
Function ReadFile(strTempFilePath) On Error Resume Next Dim objTempFile, strText Set objTempFile = objFSO.OpenTextFile(strTempFilePath, 1, False) strText = objTempFile.Readall objTempFile.Close ReadFile = strText End Function
splish: Скрипт ищет сайты с открытыми статистиками "По поисковым фразам", на остальные статистики, типа доля поисковых фраз, демография, переходы с сайтов и т.д., как повезёт, предназначение скрипта - найти сайты где открыты поисковые фразы по которым находиться этот сайт.
p.s. Читать топик полностью иногда полезно.
P>S:Читать мы умеем .
ТС спасибо ,что уточнили главное ,что меня интересовало :"как повезёт"
ТС ,я так понял ваш скрипт не ищет по запросам открытые на все 100% статику LI ?
Он ищет только полуоткрытые сайты по LI */(Получаете сайты с открытыми статистиками (По поисковым фразам) /?Или я ошибаюсь!
Статистика: общедоступна и как заявлено ""сайты доступные без пароля"" - /видно всю аналитику LI это разные понятия.Проясните пожалуйста ,какие срипт все-таки ищет сайты.
Я половину своих проектов и проектов клиентов ,двигаю а пульте.Есть там такое ,Гс-ные ссылки закупают они на авто режиме ,даже в режиме макси.Те, кто двигают сайты клиентов и свои, знают что сейчас происходит в агрегатах,и что почем лучше.О сеопульте уже много писали,ну это такое.Каждый в праве выбирать чем и кем двигать.
Купил сегодня ключ ,даже со скидкой .ТС дал свою версию софта ,на нем я активировал .Сделал обновление новой версии, все прошло на ура .Буду надеяться ,что ключ не попадет в бан .
Спасибо ,получил ответ на свой вопрос.Но все ровно удобно то , что прога создает проекты в сеопульте сразу до 50 запросов в 1 проект .А остальные уже добавлять с сайта придется.А вообще прога супер ,в работе софт очень нужный ,экономит куча времени.Как писал раньше будет ждать в будущем гугл ворстата .
MIND: Программа вычищает слова в процессе работы. Так что все правильно. Это хорошо конечно ,но тогда получается для создания проекта в коллекторе всего будет 50 запросов спарсено и созданных в сеопульте, это не очень удобно ,так как в сеопульте в проекте будет всего 50 запросов.Остальные придется тогда ,вставлять руками уже через сеопульт.Хотя просчеты делаются на большие количество запросов,которые хотелось бы сразу в проекте чтобы было.
Скрипт .vbs
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
JoinTXT "1 папка с файлами ТУТ Прописываем папку с фйлами "
JoinTXT "2 папка с файлами ТУТ Прописываем папку с фйлами "
JoinTXT "3 папка с файлами ТУТ Прописываем папку с фйлами "
JoinTXT "4 папка с файлами ТУТ Прописываем папку с фйлами "
Sub JoinTXT(strFolderPath)
Dim objFolder, objFile, strTempText, strAllText
If objFSO.FolderExists(strFolderPath) Then
Set objFolder = objFSO.GetFolder(strFolderPath)
For Each objFile In objFolder.Files
strExt = LCase(objFSO.GetExtensionName(objFile.Path))
If (strExt = "txt") Or (strExt = "log") Then
strTempText = ReadFile(objFile.Path)
If strTempText <> "" Then
strAllText = strAllText & strTempText & vbCrLf
End If
'objFile.Delete True ' удалить файл
End If
Next
End If
Set objFile = objFSO.CreateTextFile(strFolderPath & "\AllTextFiles.txt")
objFile.Write strAllText
objFile.Close
End Sub
MsgBox "выход"
Set objFSO = Nothing
Wscript.quit
Function ReadFile(strTempFilePath)
On Error Resume Next
Dim objTempFile, strText
Set objTempFile = objFSO.OpenTextFile(strTempFilePath, 1, False)
strText = objTempFile.Readall
objTempFile.Close
ReadFile = strText
End Function
После запустить
Скрипт ищет сайты с открытыми статистиками "По поисковым фразам", на остальные статистики, типа доля поисковых фраз, демография, переходы с сайтов и т.д., как повезёт, предназначение скрипта - найти сайты где открыты поисковые фразы по которым находиться этот сайт.
p.s. Читать топик полностью иногда полезно.
P>S:Читать мы умеем .
ТС спасибо ,что уточнили главное ,что меня интересовало :"как повезёт"
ТС ,я так понял ваш скрипт не ищет по запросам открытые на все 100% статику LI ?
Он ищет только полуоткрытые сайты по LI */(Получаете сайты с открытыми статистиками (По поисковым фразам) /?Или я ошибаюсь!
Статистика: общедоступна и как заявлено ""сайты доступные без пароля"" - /видно всю аналитику LI это разные понятия.Проясните пожалуйста ,какие срипт все-таки ищет сайты.
Похожий по генерации на SED . Инересный скрипт .ТС как в ПС такой дор живет?Где лучше себя проявил яша/гугл?
Под простыню, конечно удобней, чтобы вида {дор|[ url= site.ru ] дор ...}
Я половину своих проектов и проектов клиентов ,двигаю а пульте.Есть там такое ,Гс-ные ссылки закупают они на авто режиме ,даже в режиме макси.Те, кто двигают сайты клиентов и свои, знают что сейчас происходит в агрегатах,и что почем лучше.О сеопульте уже много писали,ну это такое.Каждый в праве выбирать чем и кем двигать.
MyOST отписал Вам в ЛС по восстановлению софта
Софт очень быстро обновляеться,что очень радует .В сео очень помогает работать и берет , на себя рутинную работу.
Купил сегодня ключ ,даже со скидкой .ТС дал свою версию софта ,на нем я активировал .Сделал обновление новой версии, все прошло на ура .Буду надеяться ,что ключ не попадет в бан .
Будет ли интеграция экспорта в DLE
Спасибо ,получил ответ на свой вопрос.Но все ровно удобно то , что прога создает проекты в сеопульте сразу до 50 запросов в 1 проект .А остальные уже добавлять с сайта придется.А вообще прога супер ,в работе софт очень нужный ,экономит куча времени.Как писал раньше будет ждать в будущем гугл ворстата .
Программа вычищает слова в процессе работы. Так что все правильно.
Это хорошо конечно ,но тогда получается для создания проекта в коллекторе всего будет 50 запросов спарсено и созданных в сеопульте, это не очень удобно ,так как в сеопульте в проекте будет всего 50 запросов.Остальные придется тогда ,вставлять руками уже через сеопульт.Хотя просчеты делаются на большие количество запросов,которые хотелось бы сразу в проекте чтобы было.