Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 16:31:52 - Bo Johansson, i forum visual basic - allmänt, Tråden har 15 Kommentarer och lästs av 1559 personer

Hej!
Några ideer till en funktion som filtrerar bort alla inledande nollor i en sträng?
Tex "0000012ABC" skall bli "12ABC"
Mvh
Bo


Svara

Sv: En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 16:48:25 - Sven Åke Persson

Kollar om Ni är vakna funkar detta ?
<code>
Option Explicit
Private Sub Command1_Click()
Dim newStr As String
Dim oldStr As String
oldStr = "0000012ABC"
newStr = Replace(oldStr, "0", vbNullString)
MsgBox newStr
End Sub
</code>


Svara

Sv:En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 17:17:59 - Martin Adrian

Nix, det tar bort alla nollor, inte bara de första.

Pova detta

Do while left(str,1) = "0"
str = mid(str,2)
loop


Svara

Sv:En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 17:26:52 - Håkan Borneland

Eftersom du (Sven) frågar.
Njaaaaeeee.....beror på.

Om det finns fler nollor i strängen än de i början, så kommer den att fungera "för" bra.
Annars ok.

//Håkan


Svara

Sv: En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 17:31:43 - Sven Åke Persson

Jag förstod att Ni skulle se det ;-)
Så här blev min klumpiga lösning som funkar
<code>
Option Explicit
Private Sub Command1_Click()
Dim oldStr As String
Dim newStr As String
Dim checkByte As Byte, i As Long
oldStr = "0000012ABC"
Do
i = i + 1
checkByte = Asc(Mid$(oldStr, i))
Loop Until checkByte <> 48
newStr = Right$(oldStr, Len(oldStr) - i + 1)
MsgBox newStr
End Sub
</code>


Svara

Sv:En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 18:05:59 - Bo Johansson

Jag visste att detta skulle trigga igång er :)
Tack för hjälpen!
/Bo


Svara

Sv:En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 18:16:20 - Thomas Roman

<b>Så här blev min klumpiga lösning som funkar</b>

Martins förslag var väl mycket bättre?


Thomas


Svara

Sv: En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 18:18:15 - Bo Johansson

Jag kommer att använda Martins lösning, det är den smidigaste.

Bo


Svara

Sv:En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 18:26:32 - Sven Åke Persson

<b>Martins förslag var väl mycket bättre? </b>

Visst var den det,det är därför Vi bryter våra snabba tankar med varandra.

Bo ligger illa till kommer inte hjälpa honom efter detta uttalande ;-)
Visst var min lösning lite bra ??? :-)

Jag strävar alltid efter att presentera en körbar lösning.


Svara

Sv: En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 19:08:59 - Thomas Vanhaniemi

Vet inte om det även fungerar i vanlig VB...
I VB.NET kan man använda sig av LTrim("0").

Så testa om det fungerar, alltså i stil med följande...
<code>
Text = LTrim(Text, "0")
</code>
Mvh,
Thomas

EDIT:
Hittade info om att det inte är samma i gamla VB, så det är bara att ignorera mitt ;)


Svara

Sv: En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 23:06:27 - Andreas Hillqvist

Public Function LTrimZero(Value As String) As String
Dim i As Long
    For i = 1 To Len(Value)
        If Mid(Value, i, 1) <> "0" Then
            LTrimZero = Mid(Value, i)
            Exit For
        End If
    Next
End Function


Svara

Sv: En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-23 23:17:40 - Bo Johansson

Klart jag skall använda din också lite Sven Åke, glad nu?

Bo


Svara

Sv:En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-24 11:06:00 - Thomas Vanhaniemi

Här är en funktion som använder Reguljära Uttryck.
<code>
Private Function TrimStart(ByVal Text As String) As String
Dim RegExp As Object
RegExp = CreateObject("VBScript.RegExp")

With RegExp
.Global = True
.IgnoreCase = True
.Pattern = "^0*(.*)$"
Text = .Replace(Text, "$1")
End With

Set RegExp = Nothing
TrimStart = Text

End Function
</code>

/Thomas


Svara

Sv: En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-24 11:48:40 - Andreas Hillqvist

Är det inte overkill med reguljära uttryck i detta fallet. Jag uppskattar att det tar längre tid att parsa uttrycket än att köra föreslagna funktioner.


Svara

Sv:En funktion för att ta bort inledande nollor i sträng

Postades av 2005-08-24 11:55:55 - Thomas Vanhaniemi

Jo, det är nog lite overkill men det är ett alternativ, vilket också går att bygga ut om man vill ha mer funktionalitet...

Har inte sagt att det är det bästa alternativet.

/Thomas


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 722
27 958
271 751
339
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies