-replace "," to "." and " " to "!". the 2 bugs's been found. The first is webstorm cant replace "\u00A0" to "\u0020", the second is bad data, str2[297][1] = "\", strofdec[297] = ","

Test/Applications/ParseExcelNumberFormatLocales/test/addlung.ps1

@@ -1,48 +0,0 @@
-$numbers = (1025,
-1026,
-2052,
-1028,
-1050,
-1029,
-1030,
-1043,
-1033,
-1061,
-1035,
-1036,
-1031,
-1032,
-1037,
-1081,
-1038,
-1057,
-1040,
-1041,
-1087,
-1042,
-1062,
-1063,
-1086,
-1044,
-1045,
-1046,
-2070,
-1048,
-1049,
-2074,
-1051,
-1060,
-3082,
-1053,
-1054,
-1055,
-1058,
-1066
-)
-
- foreach($i in $numbers) {
-Set-WinSystemLocale $i
-
-
- 
-}

Test/Applications/ParseExcelNumberFormatLocales/test/run.vbs

@@ -1,6 +0,0 @@
-Set objExcel = CreateObject("Excel.Application")
-objExcel.Application.Run "'C:\Users\maxim\Downloads\Telegram Desktop\macros-locale (1).xlsm'!Module1.numformatlocale"
-objExcel.DisplayAlerts = False
-
-objExcel.Application.Quit
-Set objExcel = Nothing

Test/Applications/ParseExcelNumberFormatLocales/test/run2.vbs

@@ -1,5 +1,5 @@
 Set objExcel = CreateObject("Excel.Application")
-objExcel.Application.Run "'C:\Users\maxim\Downloads\Telegram Desktop\macros-locale (1).xlsm'!Module1.numformatlocale", WScript.Arguments(0)
+objExcel.Application.Run "'C:\Users\maxim\Downloads\Telegram Desktop\macros-locale data.xlsm'!Module1.numformatlocale", WScript.Arguments(0)
 objExcel.DisplayAlerts = False
 
 objExcel.Application.Quit

Test/Applications/ParseExcelNumberFormatLocales/test/t.ps1

@@ -1,3 +0,0 @@
-
-
-Set-Culture en-GB

Test/Applications/ParseExcelNumberFormatLocales/test/test2.ps1

@@ -1,57 +1,17 @@
-$numbers = (1025,
-1026,
-2052,
-1028,
-1050,
-1029,
-1030,
-1043,
-1033,
-1061,
-1035,
-1036,
-1031,
-1032,
-1037,
-1081,
-1038,
-1057,
-1040,
-1041,
-1087,
-1042,
-1062,
-1063,
-1086,
-1044,
-1045,
-1046,
-2070,
-1048,
-1049,
-2074,
-1051,
-1060,
-3082,
-1053,
-1054,
-1055,
-1058,
-1066
-)
- foreach($i in $numbers) {
- Start-Sleep -Seconds 1
+$Lcids = ([System.Globalization.CultureInfo]::GetCultures( [System.Globalization.CultureTypes]::AllCultures ) | Select-Object -ExpandProperty Name)
+
+ foreach($i in $Lcids) {
+
 echo Set-Culture $i
  Set-Culture $i
-
+  Start-Sleep -Seconds 1
  echo .\run2.vbs $i
  
   .\run2.vbs $i
-  Start-Sleep -Seconds 1
+  Start-Sleep -Seconds 7
  
 }
 
-
 Set-Culture ru-Ru