[Iska]

Скучно что-то… Пробуйте:

читать дальше »

Код:

Option Explicit

Const Hidden = 2
Const System = 4


Dim strSourceFolder

Dim objFile
Dim objWshShell


strSourceFolder = "E:\Песочница\0373"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		Set objWshShell = WScript.CreateObject("WScript.Shell")
		
		For Each objFile In .GetFolder(strSourceFolder).Files
			If objFile.Attributes And Hidden Or objFile.Attributes And System Then
				objWshShell.Run "notepad.exe """ & objFile.Path & """"
			End If
		Next
		
		Set objWshShell = Nothing
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[Georgio]

Пакетные файлы:



1) без рекурсии:

Код:

@echo off
set specified_folder=D:\Test
for %%i in ("%specified_folder%") do set specified_folder=%%~fi
for /f "delims=" %%i in ('dir "%specified_folder%" /ah-d /b') do set %%~fi*=*
for /f "delims=" %%i in ('dir "%specified_folder%" /as-d /b') do set %%~fi*=*
for /f "delims=*" %%i in ('set %specified_folder%') do start "" notepad "%%i"
exit /b

;


2) с рекурсией:

Код:

@echo off
set specified_folder=D:\Test
for %%i in ("%specified_folder%") do set specified_folder=%%~fi
for /f "delims=" %%i in ('dir "%specified_folder%" /ah-d /b /s') do set %%i*=*
for /f "delims=" %%i in ('dir "%specified_folder%" /as-d /b /s') do set %%i*=*
for /f "delims=*" %%i in ('set %specified_folder%') do start "" notepad "%%i"
exit /b

.

[TSA21432]

Нужна помощь!
нужно привести к определенному виду (приведен кусок)
1."id":18226844," - удаляется (он всегда разный) на его место ставится [polygon] или [polyline] ниже по тексту
2. hotspots - строка удаляется полностью
3. Data0=(49.110341482,55.789257575) - меняются местами координаты (55.789257575,49.110341482)
4. после [end] процедура повторяется
5. Type=building-public - заменять building-public на 0x6e текста для замены в отдельном файле

пример файла:

Скрытый текст

building-residential 0x6c
building-industrial 0x6f
building-public 0x6e

Спасибо!

Скрытый текст

"id":18226844,"
Type=building-public
Label=Лево-Булачная улица 38
hotspots"{"id":18226844,"offsets"67,185),(76,178),(66,167),(58,175),(67,185)
[polygon]

Data0=(49.110341482,55.789257575),(49.110520184,55.789340127),(49.110318013,55.789473306),(49.110137 969,55.789385465),(49.110341482,55.789257575)
[end]
[end]
"id":4941552,"
Type=road
Label=улица Мартына Межлаука
hotspots"{"id":811333,"offsets"142,218),(145,214),(137,208),(121,231),(129,237),(142,218)
[polyline]

Data0=(49.105254170,55.783925600),(49.103513014,55.782664094),(49.111639336,55.788717015),(49.111866 837,55.788892357),(49.107707553,55.785477651),(49.106607679,55.784709757)
[end]
"id":6067768,"
Type=building-public
Label=улица Островского 12
hotspots"{"id":6067768,"offsets"211,195),(198,210),(203,214),(216,199),(211,195)
[polygon]

Data0=(49.113428872,55.789143570),(49.113143049,55.788958629),(49.113255199,55.788903657),(49.113541 022,55.789088598),(49.113428872,55.789143570)
[end]
"id":30302212,"
Type=building-industrial
Label=
hotspots"{"id":30302212,"offsets"0,210),(-4,215),(12,226),(14,222),(0,210)
[polygon]

Data0=(49.108891101,55.788952934),(49.108803281,55.788892628),(49.109092201,55.788759057),(49.109120 842,55.788778724),(49.109146408,55.788766905),(49.109205587,55.788807543),(49.108891101,55.788952934 )
[end]

Скрытый текст

Должно получится следующее:
[POLYGON]
Type=0x6c
Label=23
HouseNumber=23
StreetDesc=САХАЛИНСКАЯ УЛИЦА
CountryName=Россия
RegionName=Республика Татарстан~[0x1d]16
CityName=Казань
Data0=(55.874442,49.095535),(55.874453,49.095717),(55.874577,49.095696),(55.874566,49.095513)
[END]

[Iska]

Из письма в PM:

Скрытый текст

Извините не то прикрепил! http://forum.oszone.net/post-2440181-4.html чуть ниже было! Спасибо!

Здесь у Вас ничего не понятно для меня.

Ответить в личку не смог по банальной причине:

TSA21432 превысил(а) максимальный объем сохраненных персональных сообщений и не может получать новые сообщения, пока не удалит часть старых.

[Iska]

Из очередного письма в PM:

Скрытый текст

нужно написать маленький скрипт для того, что бы в строке в каждой скобке меняются местами координаты пример (55.789257575,49.110341482) Data0=(49.110341482,55.789257575),(49.110520184,55.789340127),(49.110318013,55.789473306),(49.110137 969,55.789385465),(49.110341482,55.789257575) Спасибо!

1. TSA21432, не надо спамить мне в личку. Пишите сюда, в тему. Кроме Iska, здесь более чем достаточно сведущих людей, которые могут Вам помочь.
2. Я написал выше, что я не понимаю, что Вам нужно. С тех пор ничего не изменилось.