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.
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
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.