Inhoud

# Functie DEEL

Retourneert het opgegeven deel van een tekenreeksexpressie (functie DEEL) of vervangt het deel van een tekenreeksexpressie door een andere tekenreeks (subroutine DEEL).

### Syntaxis:

    DEEL(string As String, Start As Long [, Length As Long]) As String
    DEEL([ByRef] string As String, Start As Long, [Length As Long], Text As String)

### Retourtype:

String (alleen voor Functie)

### Parameters:

string: Elke tekenreeksexpressie die u wilt extraheren (functie DEEL). Elke tekstvariabelenaam die u wilt wijzigen.(subroutine DEEL).

Start: Numerieke expressie die de positie van het teken aangeeft in de tekenreeks waar het gedeelte begint dat u wilt terugkrijgen of wilt vervangen. De minimale waarde is 1. De maximale waarde is 2.147.483.648.

Length: Numerieke expressie die het aantal tekens aangeeft dat u terug wilt krijgen of wilt vervangen. De maximale waarde is 2.147.483.648.

Als de Lengte-parameter in de Mid-functie wordt weggelaten, worden alle tekens in de tekenreeks vanaf de beginpositie tot het einde van de tekenreeks teruggegeven.

Als de parameter Lengte in de subroutine DEEL kleiner is dan de lengte van de tekst die u wilt vervangen, wordt de tekst teruggebracht tot de opgegeven lengte.

Tekst: De tekenreeks die de string-expressie moet vervangen(subroutine DEEL).

### Foutcodes:

5 Ongeldige aanroep van procedure

### Voorbeeld:

    Sub ExampleMid_Function_and_Statement
      text = "This is the original Text"
    func1:
      MsgBox DEEL(tekst, 13, 9)   ' retourneert het woord "origineel"
      MsgBox tekst               ' tekst is niet gewijzigd
    stmt1:
      Mid(text, 13, 8, "new")
      MsgBox tekst               ' retourneert "Dit is nieuwe tekst"
    func2:
      MsgBox DEEL(begin:=10, tekenreeks:="The quick brown fox ..") ' geeft " brown fox .."
    stmt2:
      Mid text, 9, 12, "a new Phrase"
      MsgBox tekst               ' geeft "This is a new Phrase"
    End Sub

Verwante onderwerpen

Tekenreeksfuncties

Help ons, alstublieft!