Vise fire første ord i tekststreng

fx:

a = 123456789
hvis du siger:
b= left(a,4)
så tage den de 4 bogstaver fra left
c= right(a,4)
så tage den de 4 bogstaver fre right


se mere på www.fixpunkt.dk

Det er ikke det jeg skal bruge, jeg skal have vist de fire første ord i en tekststreng.

Hvis det f.eks. var den tekst jeg lige har skrevet, så skulle den skrive:
Det er ikke det...

I øvrigt er der ikke en funktion til det på fixpunkt.dk

jo det er ...
http://www.fixpunkt.dk/asp/modul/asp/ASP/showfaq.asp?fldAuto=8

for dit kan du bruge en anden smart funtion..det vil koste dig 150 point !

dinStr = \"Hej dette er en test af antal ord.\"

startPos = 1
maxWords = 4
noWords = 0
do while (startPos > 0) AND (noWords < maxWords)
  startPos = Instr(startPos+1,dinStr,\" \",1)
  noWords = noWords + 1
loop
if (noWords = maxWords) and (startPos > 0) then
  dinStr = mid(dinStr,1,startPos)
end if

dinStr er her 4 ord...

Brug \"Split\" funktionen, se beskrivelsen her:

Description
Returns a zero-based, one-dimensional array containing a specified number of substrings.
Syntax
Split(expression[, delimiter[, count[, compare]]])
The Split function syntax has these parts:

Part Description
expression Required. String expression containing substrings and delimiters. If expression is a zero-length string, Split returns an empty array, that is, an array with no elements and no data.
delimiter Optional. String character used to identify substring limits. If omitted, the space character (\" \") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.
count Optional. Number of substrings to be returned; -1 indicates that all substrings are returned.
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.


Settings
The compare argument can have the following values:
Constant Value Description
vbBinaryCompare 0 Perform a binary comparison.
vbTextCompare 1 Perform a textual comparison.


Remarks
The following example uses the Split function to return an array from a string. The function performs a textual comparison of the delimiter, and returns all of the substrings.
Dim MyString, MyArray, Msg
MyString = \"VBScriptXisXfun!\"
MyArray = Split(MyString, \"x\", -1, 1)
\' MyArray(0) contains \"VBScript\".
\' MyArray(1) contains \"is\".
\' MyArray(2) contains \"fun!\".
Msg = MyArray(0) & \" \" & MyArray(1)
Msg = Msg  & \" \" & MyArray(2)
MsgBox Msg

Tak for jeres svar!

hmm det gælder åbenbart bare om at svare selv om det ikke kan bruges...

selvfølgelig ikke! jeg beklager meget at jeg kom til at give de point forkert. radut skulle ikke have haft nogen point for at komme med et svar, der ikke kunne bruges. eagleeye: Jeg vil meget gerne give dig de point du har fortjent, hvis det kan lade sig gøre.