[9119]

Не проверялось »

да, это похоже то, что нужно... работает. и текст в одну строку переводится, без пробелов.
Окно только под себя настрою, дабы текст можно было удобнее редактировать.

[YuS_2]

Iska, можно проще поступить (без окон) и бейсик не привлекать:

как это совместить с вариантом предложенным на предыдущей странице? »

достаточно чтобы скрипт стал на паузу и запросил ввод текста »

Код:

$json = Get-Content text.json | ConvertFrom-Json
$json.input.text = read-host "Пожалуйста, введите или вставьте из буфера текст"
$json | ConvertTo-Json | Set-Content new.json

[Iska]

YuS_2, не то. Из-под консоли — Read-Host консольный будет, плюс лишнее действие нужно.

[9119]

работает. и текст в одну строку переводится, без пробелов »

заметил, что если запускать скрипт с текстом в буфере (скажем 5000 символов), то весь текст уже в поле ввода (что, к слову очень удобно)...
Но если при этом стать в это поле, и нажать "вставить", вставляется только малое количество текста (500-1000 символов)
По умолчанию какое-то ограничение на кол-во символов для InputBox?

[YuS_2]

Из-под консоли — Read-Host консольный будет, плюс лишнее действие нужно. »

Почему не то? Вроде, как раз, это и требовалось... там я процитировал. Окно никаких преимуществ, всё равно, не даст ведь.
А какое лишнее действие? Ровно столько же, как и в окне.

[9119]

Вроде, как раз, это и требовалось »

нужны были разные варианты, но предпочтительнее все таки окно отдельное.
Планирую в нем сделать листбоксы и для настройки других параметров в text.json.



Помогите разобраться с вводом текста в поле, пож.
Пример: копируем из статьи 3 абзаца. Между абзацами - пустые строки (1-3 пустых строки).
Вставляем в поле - вставляется только первый абзац, т.е все символы до первой пустой строки.

Если предварительно сделать все 3 абзаца в 1 строку - то в поле вставляется весь текст.
1) Как-то можно побороть такое неудобство, чтобы не нужно было каждый раз в 1 строку все делать, чтобы это было автоматом при вставке?

2) Поле для ввода текста очень узкое (в 1 строку буквально). Когда вставляешь туда много текста - редактировать его там очень неудобно.
Хотелось бы иметь 8-10 строк высоты.. в идеале с возможностью скрола.
Пробовал задавать ширину и высоту поля ввода. Ширина тянется, а вот высота - нет.

Вот так, на сейчас, окно выглядит

$p='E:\11\bin'
$json = Get-Content $p\text.json | ConvertFrom-Json

Add-Type -assembly System.Windows.Forms

$main_form = New-Object System.Windows.Forms.Form
$main_form.Text ='google text-to-speech'
$main_form.Width = 500
$main_form.Height = 500
$main_form.AutoSize = $true



$TextBox = New-Object System.Windows.Forms.TextBox
$TextBox.Width = 450
$TextBox.AutoSize = $true
$TextBox.Location = New-Object System.Drawing.Point(50,200)
$TextBox.Text = Get-Clipboard -Format Text
$main_form.Controls.Add($TextBox)

$button = New-Object System.Windows.Forms.Button
$button.Text = 'OK'
$button.Location = New-Object System.Drawing.Point(400,250)
$button.add_Click({Click_Button});
$main_form.Controls.Add($button)





function Click_Button
{
$json.input.text = $TextBox.Text
$json | ConvertTo-Json | Set-Content $p\text.json
}

$main_form.ShowDialog()

[Iska]

YuS_2, InputBox даёт возможность зараз подставить умолчальное значение из Буфера обмена. И не во всех ОС работает вставка в окно консоли без предварительных настроек.

9119, с предыдущей страницы: Создание настраиваемого поля ввода - PowerShell | Microsoft Docs.

[9119]

Iska, я изучил эту информацию и не только ее...
все дело в том, что как не крути не получается у меня сделать в несколько строк это.
Пробовал через TextBox, ListBox. ComboBox.
Все время одна строка... (
upd: решил.

Код:

$TextBox.Multiline = $True;

Но, все же непонятно как добавить скрол, если вставленный текст весь не виден в окне (приходится опускаться/подыматься стрелками клавы)
Также в данном поле не работает почему-то сочетание ctrl+a, например.
Если владеете инфой - объясните на пальцах, пож.

[YuS_2]

нужны были разные варианты, но предпочтительнее все таки окно отдельное. Планирую в нем сделать листбоксы и для настройки других параметров в text.json. »

Ну, это уже другое дело. Раз уж нравится больше настраиваемая форма, то надо в условия задачи это и вписать...

InputBox даёт возможность зараз подставить умолчальное значение из Буфера обмена. »

Это, как раз, не проблема, один условный блок всё решает...

И не во всех ОС работает вставка в окно консоли без предварительных настроек. »

С этим уже хуже. Но и ТС, вроде уточнил, что форма подходит больше...

[Iska]

Но, все же непонятно как добавить скрол, если вставленный текст весь не виден в окне (приходится опускаться/подыматься стрелками клавы) »

View Multiple Lines in TextBox Control - Windows Forms .NET Framework | Microsoft Docs

Также в данном поле не работает почему-то сочетание ctrl+a, например. »

Если задано свойство .Multiline — не работает. Вроде как старый, известный баг. Который то «лечится», то возвращается заново.

Косо-криво на верхнем уровне можно обойти своим обработчиком:

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

Код:

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

[System.Windows.Forms.Application]::EnableVisualStyles()

$oForm                  = New-Object System.Windows.Forms.Form

$oForm.Text             = 'Sample form'
$oForm.Size             = New-Object System.Drawing.Size(300,200)
$oForm.StartPosition    = 'CenterScreen'

$oTextBox               = New-Object System.Windows.Forms.TextBox
$oTextBox.Location      = New-Object System.Drawing.Point(10,40)
$oTextBox.Size          = New-Object System.Drawing.Size(260,80)
$oTextBox.Multiline     = $true
$oTextBox.AcceptsReturn = $true
$oTextBox.WordWrap      = $false
$oTextBox.ScrollBars    = [System.Windows.Forms.ScrollBars]::Both

$oTextBox.Add_KeyDown({
  if ($_.Modifiers -eq [System.Windows.Forms.Keys]::Control -and $_.KeyCode -eq [System.Windows.Forms.Keys]::A) {
     $oTextBox.SelectAll()
  }
})

$oForm.Controls.Add($oTextBox)

$oForm.Add_Shown({$oTextBox.Select()})
$oForm.ShowDialog()

Это, как раз, не проблема, один условный блок всё решает... »

Поясните примером.