Funktionen Mid

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Returnerer en variant (streng), der indeholder et angivet antal tegn fra en streng.

Syntaks

Mid ( streng, start [længde ] )

Midt syntaksen for funktionen har følgende argumenter:

Argument

Beskrivelse

streng

Der er påkrævet. strengudtryk som tegn, der returneres fra. Hvis strengen ikke indeholder Null-værdier, returneres Null .

Start

Der er påkrævet. Lang. Tegn i streng , hvor den del at blive ført begynder. Hvis start er større end antallet af tegn i streng, midt returnerer en streng af længden nul ("").

længde

Valgfrit. Variant (Lang). Antallet af tegn, der skal gå tilbage. Hvis udelades, eller hvis der er færre end længden tegn i teksten (inklusiv tegnet ved start), returneres alle tegn fra den starte position til slutningen af strengen.


Bemærkninger

For at fastslå antallet af tegn i streng skal du bruge funktionen LÆNGDE.

Bemærk: Bruge funktionen MIDTB med bytedata, der er indeholdt i en streng, som dobbelt-byte-tegn sæt sprog. I stedet for at angive antallet tegn, argumenterne, skal du angive antallet af byte. For eksempelkode, der bruger MIDTB, skal du se det andet eksempel i emnet Eksempel.

Eksempel

Bemærk: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

Det første eksempel bruges funktionen midt til at returnere et angivet antal tegn fra en streng.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".

Det andet eksempel bruge MIDTB og en brugerdefineret funktion (MidMbcs) til at også returnere tegn fra strengen. Forskellen er, at input strengen ANSI og længden i byte.

Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), _
start, length), vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Udvid dine færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider

Var disse oplysninger nyttige?

Tak for din feedback!

Tak for din feedback! Det lyder, som om det vil kunne hjælpe, hvis du bliver sat i forbindelse med en af vores Office-supportteknikere.

×