0

我有一个脚本，它要求用户使用 Windows 富文本框表单输入信息，每条信息都在不同的行上输入，然后脚本将信息添加到文本文件中，但我希望它通过分隔信息新线的意思。下面是我正在使用的代码：目前将信息添加为一段文本，没有任何空格或行。任何帮助，将不胜感激

cls
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") 
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") 

$objForm = New-Object System.Windows.Forms.Form 
$objForm.Text = "Till's to Update"
$objForm.Size = New-Object System.Drawing.Size(300,550) 
$objForm.StartPosition = "CenterScreen"



$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Size(75,480)
$OKButton.Size = New-Object System.Drawing.Size(75,23)
$OKButton.Text = "OK"
$OKButton.Add_Click({$x=$RichTextBox.Text;$objForm.Close()})
$objForm.Controls.Add($OKButton)

$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Size(150,480)
$CancelButton.Size = New-Object System.Drawing.Size(75,23)
$CancelButton.Text = "Cancel"
$CancelButton.Add_Click({$objForm.Close()})
$objForm.Controls.Add($CancelButton)

$objLabel = New-Object System.Windows.Forms.Label
$objLabel.Location = New-Object System.Drawing.Size(10,20) 
$objLabel.Size = New-Object System.Drawing.Size(280,20) 
$objLabel.Text = "Please enter information:"
$objForm.Controls.Add($objLabel) 

$RichTextBox = New-Object System.Windows.Forms.richtextbox 
$RichTextBox.Location = New-Object System.Drawing.Size(10,80) 
$RichTextBox.Size = New-Object System.Drawing.Size(260,320)
$objForm.Controls.Add($RichTextBox) 


$objForm.Topmost = $True

$objForm.Add_Shown({$objForm.Activate()})
[void] $objForm.ShowDialog()

$x


Set-Content -Value  `n$x`n -Path c:\Computers.txt
4

3 回答 3

1

通过 `n 拆分文本并将其通过管道传输到文件。您可以删除脚本中的最后两行。

$OKButton.Add_Click({
    $RichTextBox.Text -split "`n" | Set-Content -Path c:\Computers.txt
    $objForm.Close()
})
于 2012-11-20T19:47:29.263 回答
1

更改这些行

$x
Set-Content -Value  `n$x`n -Path c:\Computers.txt

和

set-content -Value ($RichTextBox.text -split "`n" ) -Path c:\Computers.txt

或者

set-content -Value $RichTextBox.Lines -Path c:\Computers.txt
于 2012-11-20T19:49:15.857 回答
0

RichTextBox 想要为您提供 RTF 格式的文本。当您要求 Text 时，我认为它会剥离格式代码并只给您字母和空格，我认为它不会将其变成轻量级的 ascii 格式。

您可能想要使用 .Lines 属性，它返回一个字符串[]，您可以循环并写入文件。

参考：http: //msdn.microsoft.com/en-us/library/system.windows.forms.textboxbase.lines.aspx

于 2012-11-20T19:46:01.210 回答