共用方式為

EditPoint2.DeleteWhitespace 方法

  • 發行項

刪除水平或垂直環繞於文字緩衝區中目前位置的空字元 (空白字元)。

命名空間：  EnvDTE80
組件：  EnvDTE80 (在 EnvDTE80.dll 中)

語法

'宣告
Sub DeleteWhitespace ( _
    Direction As vsWhitespaceOptions _
)

void DeleteWhitespace(
    vsWhitespaceOptions Direction
)

void DeleteWhitespace(
    [InAttribute] vsWhitespaceOptions Direction
)

abstract DeleteWhitespace : 
        Direction:vsWhitespaceOptions -> unit

function DeleteWhitespace(
    Direction : vsWhitespaceOptions
)

參數

  • Direction
    類型：vsWhitespaceOptions

    選擇項。 vsWhitespaceOptions 常數，決定要移除空格的方法與位置。

備註

DeleteWhitespace 會移除編輯點或 TextSelection 前後的空白字元 (White Space)，不會先將文字複製到剪貼簿。 如果 Direction 是 vsWhitespaceOptionsHorizontal，則 DeleteWhitespace 會刪除編輯點兩邊的空白和定位字元，直到編輯點這一行的開頭或結尾，或是遇到非空白字元為止。 如果 Direction 是 vsWhitespaceOptionsVertical，則 DeleteWhitespace 會刪除編輯點兩邊的空白行，直到文件的開頭或結尾，或是遇到非空白行為止。 如果 Direction 是 vsWhitespaceOptionsVertical，而且目前行不是空白行，則這個方法將不會有作用。

範例

Sub DeleteWhitespaceExample(ByVal dte As DTE2)

    ' Create a new text file.
    dte.ItemOperations.NewFile()

    ' Create an EditPoint at the start of the new document.
    Dim doc As TextDocument = _
        CType(dte.ActiveDocument.Object("TextDocument"), TextDocument)
    Dim point As EditPoint = doc.StartPoint.CreateEditPoint

    Dim i, j As Integer

    ' Insert 10 lines of text.
    For i = 1 To 10
        point.Insert("This is a test." & vbCrLf)
    Next

    If MsgBox("Remove all spaces between words?", MsgBoxStyle.YesNo) _
        = MsgBoxResult.Yes Then
        point.StartOfDocument()

        For i = 1 To 10
            For j = 1 To 3
                point.WordRight()
                point.DeleteWhitespace( _
                    vsWhitespaceOptions.vsWhitespaceOptionsHorizontal)
            Next
            point.StartOfLine()
            point.LineDown()
        Next
    End If

End Sub

public void DeleteWhitespaceExample(DTE2 dte)
{

    // Create a new text file.
    dte.ItemOperations.NewFile(@"General\Text File", "", 
        Constants.vsViewKindPrimary);

    // Create an EditPoint at the start of the new document.
    TextDocument doc = 
        (TextDocument)dte.ActiveDocument.Object("TextDocument");
    EditPoint point = doc.StartPoint.CreateEditPoint();

    // Insert 10 lines of text.
    for (int i = 1; i <= 10; ++i)
        point.Insert("This is a test.\n");

    if (MessageBox.Show("Remove all spaces between words?", "", 
        MessageBoxButtons.YesNo) == DialogResult.Yes)
    {
        point.StartOfDocument();

        for (int i = 1; i <= 10; ++i)
        {
            for (int j = 1; j <= 3; ++j)
            {
                point.WordRight(1);
                point.DeleteWhitespace(
                    vsWhitespaceOptions.vsWhitespaceOptionsHorizontal);
            }
            point.StartOfLine();
            point.LineDown(1);
        }
    }
}

.NET Framework 安全性

請參閱

參考

EditPoint2 介面

EnvDTE80 命名空間

其他資源

如何：編譯和執行 Automation 物件模型程式碼範例