Split

2 svar · 281 visningar · startad av Addeladde 27 mars 2003

AddeladdeMedlem sedan jan. 20013 406 inlägg

Trådstart27 mars 2003 11:55#1

Hej

Jag vill splitta en textsträng efter ett speciellt antal bokstäver.

Om jag har textstängen: 4Hårdvaruproblem
Så vill jag dela upp det i
Epostnummer = 4
Problem = Hårdvaruproblem

Jag har detta som löser mitt problem men jag vill inte ha ett x som avdelar vart den ska splitta.

 Dim  MyArray, prioritet
prioritet = "4Hårdvaruproblem"
  MyArray = Split(prioritet, "x", -1, 1)
  prioritet = MyArray(0)
  toepost = MyArray(1)

mrblondeMedlem sedan aug. 20012 349 inlägg

27 mars 2003 14:28#2

kan epostnummret vara hur långt som helst? Och åtföljs den alltid av text?

Du kan ju dela upp den med stränghantering om om första positionen är nummret och andra plus resten är problem.

strEpostnummer = left(prioritet , 1)
strProblem = right(prioritet , len(prioritet )-1)

Om numret kan vara olika långt kan du ju söka ut tecken för tecken tills du har hela nummret och putta in i olika variabler. Mer problem blir det om problemet strängen kan börja på en siffra (är det fritext eller något du satt?)

Då är det nog dax att fundera på hur nummret byggs upp om det kanske inte vore bättre att sända det från formuläret (?) i två olika fält.

AddeladdeMedlem sedan jan. 20013 406 inlägg

27 mars 2003 19:58#3

Tack mrblonde din kod fungerar perfekt till det jag ska ha det till.
Det är bara en siffra och alltid i början så det funkar.