Split

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)

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.

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.