EditPoint2.DeleteWhitespace-Methode

Artikel
05/16/2015

Löscht horizontal oder vertikal die Leerzeichen (Leerraum) in unmittelbarer Umgebung der aktuellen Position im Textpuffer.

Namespace: EnvDTE80
Assembly: EnvDTE80 (in EnvDTE80.dll)

Syntax

'Declaration
Sub DeleteWhitespace ( _
    Direction As vsWhitespaceOptions _
)

void DeleteWhitespace(
    vsWhitespaceOptions Direction
)

void DeleteWhitespace(
    [InAttribute] vsWhitespaceOptions Direction
)

abstract DeleteWhitespace : 
        Direction:vsWhitespaceOptions -> unit

function DeleteWhitespace(
    Direction : vsWhitespaceOptions
)

Parameter

Direction
Typ: vsWhitespaceOptions

Optional. Eine vsWhitespaceOptions-Konstante, die bestimmt, wie und an welcher Position Leerraum entfernt werden soll.

Hinweise

Durch DeleteWhitespace wird Leerraum um den Bearbeitungspunkt oder TextSelection herum entfernt, ohne den Text vorher in die Zwischenablage zu kopieren. Wenn Direction auf vsWhitespaceOptionsHorizontal festgelegt ist, werden durch DeleteWhitespace Leerzeichen und Tabstopps auf beiden Seiten des Bearbeitungspunktes vom Anfang bis zum Ende der Zeile gelöscht bzw. bis zum nächsten vorgefundenen Zeichen, das kein Leerzeichen ist. Wenn Direction auf vsWhitespaceOptionsVertical festgelegt ist, löscht DeleteWhitespace leere Zeilen oberhalb und unterhalb des Bearbeitungspunktes bis zum Anfang und zum Ende des Dokuments bzw. bis eine nicht leere Zeile gefunden wird. Wenn Direction auf vsWhitespaceOptionsVertical festgelegt und die aktuelle Zeile nicht leer ist, führt diese Methode keine Aktion aus.

Beispiele

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-Sicherheit

Volle Vertrauenswürdigkeit für den unmittelbaren Aufrufer. Dieser Member kann von nur teilweise vertrauenswürdigem Code nicht verwendet werden. Weitere Informationen finden Sie unter Verwenden von Bibliotheken aus teilweise vertrauenswürdigem Code.