Новости Науки и Техники

[Виктор Кондрашов]

М-да, граждане, эта весна выдалась на удивление забористой. 

[SOLDIER]

В Канаде, видать, урожай травы нынче удался. Забористая выросла.

[Старый]

я в Канаде но про-русский.

Сам себя не похвалить- никто тебя не похвалит. 
Всем прекрасно видно что ты пронатовский, а твои отчаянные попытки выставить себя прорусским  вызывают лишь чувство гадливости. 

[Старый]

Ваши потуги, вот собственно подобные мерзкие барские замашки - одна из причин отношения к вам людей на этом форуме.

Это стандартное поведение тролля и провокатора. Давно уж пора привыкнуть. 

[Старый]

А вы попробуйте общаться со мной с помощью аргументов, фактов и логики

Никто не будет общаться с демагогом, троллем и провокатором. Его будут только все презирать и пинать. Ссать в глаза и вытирать об него ноги. 

[Старый]

Да, причём коллективное желание целой стайки "либерал-патриотов-антипутинцев-русофобов" 

А есть где-нибудь форум где тебя любят? Дай ссылочку. 

[Старый]

Вот и перешли на собачий лай

А есть форумы где с тобой разговаривают? Дай ссылочку. 

[Старый]

М-да, граждане, эта весна выдалась на удивление забористой. 

А в другое время года он был другим? 

[Inti]

Ну вот, очередное свидетельство уровня либерал-"патриотической" стаи. Ничего кроме примитивных оскорблений живущего на пару этажей выше.

[SOLDIER]

Его любят только тут. В ФНК любить перестали, тут любят только благодаря его куратору.

[SOLDIER]

Старый, есть большое желание Шина всё-таки попробовать позвать. Это разгул "разума" начинает переходить все рамки. Подумай.

[Старый]

Старый, есть большое желание Шина всё-таки попробовать позвать. Это разгул "разума" начинает переходить все рамки. Подумай.

Напиши ему сам в личку. 

[Inti]

Старый, куку!

[fagot]

Это стандартное поведение тролля и провокатора. Давно уж пора привыкнуть.

Так я привык, просто иногда полезно обозначить это в явном виде.

[Дмитрий Виницкий]

Я же написал, мне сверху виднее, беженец

С какое еще «верху»? Беженец это как раз ты. Два раза. И, судя по всему, до сих пор живешь на пособие. И мечтаешь уехать с копеечной канадской пенсией в дешевый в твоем воображении Крым.

[Inti]

Я же написал, мне сверху виднее, беженец

С какое еще «верху»? Беженец это как раз ты. Два раза. И, судя по всему, до сих пор живешь на пособие. И мечтаешь уехать с копеечной канадской пенсией в дешевый в твоем воображении Крым.

Расскажи что делает этот мой скрипт?

Option Explicit
Dim fso, lowQualityFolder, highQualityFolder, outputFolder
Dim lowQualityFiles, file, folder, subFolder, highQualityFile
Dim matchesFound, totalLowQualityFiles
Dim WShell

' Create FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set WShell = CreateObject("WScript.Shell")

' Define paths (replace with your actual paths)
lowQualityFolder = "f:\MyPhotos_Vin\Photos-627\"  ' Path to low-quality photos folder
highQualityFolder = "f:\MyPhotos_PROJECTS_DONE_OLD\" ' Path to high-quality photos folder
outputFolder = "f:\MyPhotos_Vin\Photos-627-high-quality-SubFolders\"    ' Path to output folder

' Ensure paths end with a backslash
If Right(lowQualityFolder, 1) <> "\" Then lowQualityFolder = lowQualityFolder & "\"
If Right(highQualityFolder, 1) <> "\" Then highQualityFolder = highQualityFolder & "\"
If Right(outputFolder, 1) <> "\" Then outputFolder = outputFolder & "\"

' Create output folder if it doesn't exist
If Not fso.FolderExists(outputFolder) Then
    fso.CreateFolder(outputFolder)
End If

' Initialize counters
matchesFound = 0
totalLowQualityFiles = 0

' Create dictionary to store low-quality filenames (without extensions, case-insensitive)
Set lowQualityFiles = CreateObject("Scripting.Dictionary")
lowQualityFiles.CompareMode = 1 ' Case-insensitive comparison

' Get low-quality photo filenames
For Each file In fso.GetFolder(lowQualityFolder).Files
    lowQualityFiles.Add LCase(fso.GetBaseName(file.Name)), file.Name
    totalLowQualityFiles = totalLowQualityFiles + 1
Next

' Search high-quality folder and subfolders
Set folder = fso.GetFolder(highQualityFolder)
Call ProcessFolder(folder)

' Process all subfolders recursively
For Each subFolder In folder.SubFolders
    Call ProcessFolder(subFolder)
Next

' Subroutine to process a folder
Sub ProcessFolder(currentFolder)
    For Each highQualityFile In currentFolder.Files
        Dim baseName, relativePath, destFolder, destPath
        baseName = LCase(fso.GetBaseName(highQualityFile.Name))
        If lowQualityFiles.Exists(baseName) Then
            ' Get relative path of the high-quality file relative to highQualityFolder
            relativePath = Mid(currentFolder.Path, Len(highQualityFolder) + 1)
            ' Construct destination folder path
            destFolder = outputFolder & relativePath
            ' Create destination folder if it doesn't exist
            If Not fso.FolderExists(destFolder) Then
                CreateFolderPath destFolder
            End If
            ' Construct full destination path for the file
            destPath = destFolder & "\" & highQualityFile.Name
            ' Copy the high-quality file to destination
            highQualityFile.Copy destPath
            'WShell.Popup "Copied: " & highQualityFile.Path & " to " & destPath, 1, "Copying", 64
            matchesFound = matchesFound + 1
        End If
    Next
End Sub

' Subroutine to create folder path recursively
Sub CreateFolderPath(path)
    Dim parentPath
    If Not fso.FolderExists(path) Then
        parentPath = fso.GetParentFolderName(path)
        If Not fso.FolderExists(parentPath) Then
            CreateFolderPath parentPath
        End If
        fso.CreateFolder(path)
    End If
End Sub

' Clean up
Set fso = Nothing
Set lowQualityFiles = Nothing
Set WShell = Nothing

[SOLDIER]

"Матёрый айтишник".
Скрипт ищет высококачественные версии фотографий из папки lowQualityFolder в папке highQualityFolder и ее подпапках, сравнивая имена файлов (без учета регистра и расширений). Найденные высококачественные файлы копируются в outputFolder с сохранением структуры подпапок, соответствующей их расположению в highQualityFolder. Это полезно, например, для замены низкокачественных фотографий на их высококачественные аналоги с сохранением организованной структуры.

[Дмитрий Виницкий]

Расскажи что делает этот мой скрипт?

нахрена? 

Инти, после всего, ни у кого не вызовет сомнений, что ты просто заказал кусок кода а чата джипити. Но что мне с этого?


Вот тебе первый попавшийся кусок из моего моего интранета, поймешь о чем и где идет речь в документе?

a) When acquiring 60% of I******l, ХХХХ Merchants will acquire 60% of the company that owns the entire infrastructure (all), office buildings (all), equipment (all), property (all), land (all), etc. without any exclusions other than any excess land that will not be required for the current operation and future expansions plus one of the office buildings that has been identified for ХХХ and other activities and companies of the group (production, trading, etc.).

Before or during the due diligence, ХХХХ Merchants will request external legal advice to get confirmation that such piece of excess land and one of the office block can be fully segregated (legally and operationally) and continue to be owned 100% by the current shareholders of I******l .

b) The EBITDA of I******l is or will be totally separate and independent from other activities that
ХХХ, NNN and/or other companies have as a result of their trading and production activities.

c) The EBITDA level of 2012 of $3.8m or 62% of sales for all the logistics and real estate activities that are part of I******l can be maintained and/or increased without the need to expand. As per clause 13, the potential expansion is not part of this transaction and will be dealt with under a separate agreement in the future.

[SOLDIER]

Ща спросит у чатжпт. Попутно расскажет про собственные глисты - он еще не протрезвел (или похмелился). 

[telekast]

Расскажи что делает этот мой скрипт?

А точно твой? А то, судя по стилистике это из библиотеки примеров надергано. Даже имея минимум знаний можно по комментариям догадаться, что это скрипт делает. Что и указывает на высокую вероятность его библиотечного происхождения.
И это вершина твоего макросописания?