18. januar 2010 - 19:23Der er
10 kommentarer og 1 løsning
mellemrum i streng !
Hej,
Jeg har at bruge for at fjern start og slut mellemrum fra streng men beholder alle mellemrum i mellem streng f.eks. streng " jeg er sulten " skal returens "jeg er sulten". Hvordan gøre man det. Jeg har brugt LTrim og RTrim men det fjern alle mellemrume.
Du har måske ret - her er lille del af code: hvis jeg fjern "LTrim og RTrim" fra funktion så kommer streng med mellemrum men ellers fjern alle mellemrum. p.s. der er ikke alle kode.
Public Function Parse_CommandLine() As Boolean Dim T1 As String Dim Ptr1, Ptr2 As Long On Error GoTo err_Parse_CommandLine T1 = Trim(Command$) For Ptr1 = 1 To Len(T1) If Mid(T1, Ptr1, 4) = "-li:" Then strLoggingItem = "" For Ptr2 = (Ptr1 + 4) To Len(T1) If Mid(T1, Ptr2, 4) = "-ld:" Then Exit For strLoggingItem = strLoggingItem & Mid(T1, Ptr2, 1) strLoggingItem = LTrim(strLoggingItem) strLoggingItem = RTrim(strLoggingItem) Exit Function End If
Well, så vidt jeg kan se, bygger du strLoggingItem op ét tegn ad gangen og trimmer for hver omgang, hvilket bør give en mellemrumsfri streng.. :-) Du skal først trimme strLoggingItem, når du har fået hele den streng, du skal bruge..
Mener du at jeg skal fjern 'T1' fra min for loop eller hvad er din forslag? ------------------------- For Ptr1 = 1 To Len(T1) If Mid(T1, Ptr1, 4) = "-li:" Then strLoggingItem = "" For Ptr2 = (Ptr1 + 4) To Len(T1) If Mid(T1, Ptr2, 4) = "-ld:" Then Exit For strLoggingItem = strLoggingItem & Mid(T1, Ptr2, 1) --------------------------
Selvfølgelig virker trim(). Du forsøger tilsyneladende at fiske den tekstbid ud som findes imellem "-li:" og "-ld:" (og trimme den)
Det kan gøres mere overskueligt/forståeligt med en while løkke
meta: posX=0 while stengen_fra_posX indeholder "-li:" start = pos+4 if stengen_fra_start indeholder "-ld:" slut = pos-1 fundet[i] = trim(substring(strengen,start,slut)) else brok posX = slut + 4 wend
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.