limoshkaa

limoshkaa
Рейтинг
85
Регистрация
31.07.2010

Скрипт .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

После запустить

splish:
Скрипт ищет сайты с открытыми статистиками "По поисковым фразам", на остальные статистики, типа доля поисковых фраз, демография, переходы с сайтов и т.д., как повезёт, предназначение скрипта - найти сайты где открыты поисковые фразы по которым находиться этот сайт.
p.s. Читать топик полностью иногда полезно.

P>S:Читать мы умеем .

ТС спасибо ,что уточнили главное ,что меня интересовало :"как повезёт"

ТС ,я так понял ваш скрипт не ищет по запросам открытые на все 100% статику LI ?

Он ищет только полуоткрытые сайты по LI */(Получаете сайты с открытыми статистиками (По поисковым фразам) /?Или я ошибаюсь!

Статистика: общедоступна и как заявлено ""сайты доступные без пароля"" - /видно всю аналитику LI это разные понятия.Проясните пожалуйста ,какие срипт все-таки ищет сайты.

Похожий по генерации на SED . Инересный скрипт .ТС как в ПС такой дор живет?Где лучше себя проявил яша/гугл?

Под простыню, конечно удобней, чтобы вида {дор|[ url= site.ru ] дор ...}

Я половину своих проектов и проектов клиентов ,двигаю а пульте.Есть там такое ,Гс-ные ссылки закупают они на авто режиме ,даже в режиме макси.Те, кто двигают сайты клиентов и свои, знают что сейчас происходит в агрегатах,и что почем лучше.О сеопульте уже много писали,ну это такое.Каждый в праве выбирать чем и кем двигать.

MyOST отписал Вам в ЛС по восстановлению софта

Софт очень быстро обновляеться,что очень радует .В сео очень помогает работать и берет , на себя рутинную работу.

Купил сегодня ключ ,даже со скидкой .ТС дал свою версию софта ,на нем я активировал .Сделал обновление новой версии, все прошло на ура .Буду надеяться ,что ключ не попадет в бан .

Будет ли интеграция экспорта в DLE

Спасибо ,получил ответ на свой вопрос.Но все ровно удобно то , что прога создает проекты в сеопульте сразу до 50 запросов в 1 проект .А остальные уже добавлять с сайта придется.А вообще прога супер ,в работе софт очень нужный ,экономит куча времени.Как писал раньше будет ждать в будущем гугл ворстата .

MIND:
Программа вычищает слова в процессе работы. Так что все правильно.
Это хорошо конечно ,но тогда получается для создания проекта в коллекторе всего будет 50 запросов спарсено и созданных в сеопульте, это не очень удобно ,так как в сеопульте в проекте будет всего 50 запросов.Остальные придется тогда ,вставлять руками уже через сеопульт.Хотя просчеты делаются на большие количество запросов,которые хотелось бы сразу в проекте чтобы было.
Всего: 112