tsukanov-as

Var Map, Src, Pos, Len, Chr;
Var Scope;

Procedure Init()
	Var Abc, Num; Map = New Map; EOF = "";
	Abc = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ=+-*/<>%"+
	"абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
	For Num = 1 To StrLen(Abc) Do Map[Mid(Abc, Num, 1)] = "Alpha" EndDo;
	For Num = 0 To 9 Do Map[String(Num)] = "Digit" EndDo;

tsukanov-as

Function Parse(Src, Pos = 1)
	List = New Array;
	Pos = Pos + 1; Chr = Mid(Src, Pos, 1); 
	If Chr = Chars.LF Then Pos = Pos + 1; Chr = Mid(Src, Pos, 1); EndIf;
	Beg = Pos;
	While Chr <> "" Do 
		If Chr = "{" Then
			List.Add(Parse(Src, Pos));
			Pos = Pos + 1; Chr = Mid(Src, Pos, 1);
			If Chr = Chars.LF Then Pos = Pos + 1; Chr = Mid(Src, Pos, 1); EndIf;

tsukanov-as

Procedure ParseFiles(Path) Export
	
	Files = FindFiles(Path, "*.bsl", True);
	Total = Files.Count();
	
	MaxJobs = 8; 
		
	JobList = New Array(MaxJobs);
	JobArgs = New Array(1); 
	

tsukanov-as

#REQUIRES -Version 3.0

# This is a simple sample for access the MS UIAutomation in PowerShell. 
# In this sample:
#  1. Load the MS UIA via System.Reflection.Assembly
#  2. Launch the AUT ( calc.exe )
#  3. Find the AutomationElement via the AUT Process Id
#  4. Find buttons via 'ClassName' and 'Name' property
#  5. Click the '1', '+', '1', '=' buttons. 
# At last, we will get '2' in the result of calc App.

tsukanov-as

В окне модуля - Ctrl+F

• ^Процедура\s+[a-zA-Z0-9А-Яа-яёЁ_]+\(\)\s+Экспорт\s*\n\s*КонецПроцедуры
  • используем \n

В окне поиска файлов - Ctrl+Shift+F

• ^Процедура\s+[a-zA-Z0-9А-Яа-яёЁ_]+\(\)\s+Экспорт\s*$[^\n]*\s*КонецПроцедуры
  • не используем \n

tsukanov-as

Procedure RunAtServer()
	
	Reader = New DataReader("C:\temp\20180713000000.lgp");
	 	
	Start = CurrentUniversalDateInMilliseconds();
	
	If Reader.SkipTo("{") >= 0 Then
		
		Delimeters = New Array;
		Delimeters.Add("""");

tsukanov-as

import collections

f = open("C:/temp/синтаксические ошибки.txt", mode="r", encoding="utf-8")

m = collections.defaultdict(list)

for line in f.readlines():
    i = line.index(" ")
    m[line[:i]].append(line[i+1:])

tsukanov-as

using namespace System.Collections.Generic

#region Runtime

Add-Type -AssemblyName System.speech
$Ирина = New-Object System.Speech.Synthesis.SpeechSynthesizer

cls

$lib = @{

tsukanov-as

$report = Select-String -Path .\history.mxl -Pattern "{`"#`"," | select Line

$ver = ""
for ($i = 0; $i -lt $report.count; $i++) { 
    if ($report[$i].Line.StartsWith("{`"#`",`"Version:`"}")) {
        $raw = $report[$i+1].Line
        $ver = $raw.Substring(6, $raw.Length - 8) -replace ","
    }
}

tsukanov-as

local json = require('rapidjson')

local path = "C:/temp/1.json"

local file = io.open(path, 'r')

local debtors, debtorsMap, company, phones, phone, debt, debtor

debtors = {}