CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede flemming_a Nybegynder
11. december 2009 - 11:08 Der er 7 kommentarer og
1 løsning

fjern 0(er) men kun hvis det/de står forrest

jeg får et ean-nummer som input fra en stregkodelæser, det består af 13 tal, der er intet problem hvis første tal er 1-9, men hvis det første eller andet tal er nul vil jeg gerne ha nullerne fjernet. Hvordan fjerner jeg nuller fra venstre mod højre til jeg når det første tal mellem 1 og 9....
Avatar billede tjp Mester
11. december 2009 - 11:35 #1
Function LZeroTrim(s)
  Dim i
  For i = 1 To Len(s)
      If Mid(s, i, 1) > 0 Then
        Exit For
      End If
  Next
  LZeroTrim = Mid(s, i)
End Function
Avatar billede flemming_a Nybegynder
11. december 2009 - 12:31 #2
men vil den function ikke fjerne alle nuller. jeg vil kun fjerne dem der står før det første tal>0

eks 0087456732506 -> 87456732506

ret mig hvis jeg tager fejl
Avatar billede tjp Mester
11. december 2009 - 13:35 #3
næ, den looper frem til første tal større end nul, exit'er loop og returnerer resten..
Avatar billede flemming_a Nybegynder
11. december 2009 - 13:38 #4
jamen så vil jeg prøve at få den ind.
Avatar billede flemming_a Nybegynder
11. december 2009 - 14:28 #5
nå det når jeg ikke inden mandag, vender tilbage der...
Avatar billede flemming_a Nybegynder
14. december 2009 - 11:07 #6
jeg kan se at din kode virker, så du ligger lige et svar, så er det bare mig der skal finde ud af at få den startet på det rigtige tidspunkt
Avatar billede tjp Mester
14. december 2009 - 11:35 #7
Here U R.. :-)
Avatar billede flemming_a Nybegynder
14. december 2009 - 12:19 #8
jeg håber det var point nok, jeg var ikke helt klar over om det var et svært spg. ?!?
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:19 Google maps - downloaded - samlet overblik? Af 1Dorte i Andet software
I går 13:51 Smarthome system Af Vesterlund i Andet hardware
12/0915:18 Valg af vejrstation Af KurtG i Andet hardware
12/0914:02 Lenovo Yoga hænger i opstart. Af valby i PC
12/0911:40 Fjerne kontoer i Teams Af Klaus Fagerlund i Andet software
White papers
Flere white papers »


Premium
Teaser billede
Skattevæsenet trækker kæmpe-udbud til 278 millioner kroner tilbage med omgående virkning
Læs mere »
Kunder flygter i massevis fra VMware efter prisstigninger og licensændringer: Står til at miste en tredjedel af alle opgaver
Nu ændrer dine Office-programmer sig: Microsoft tilføjer ny funktion
Henrik Bodskov fratræder som topchef for Aeven: Her er den nye topchef
Se alle »
Computerworld
Teaser billede
I aften sker det: Din iPhone får en monumental opdatering
Læs mere »
Så meget kommer de til at koste: Apple løfter sløret for helt nye iPhones, Apple-ure og AirPods
Alt om Apples spritnye iPhone Air – og hvorfor den nok vil floppe
Apples nye AirPods Pro 3 er proppet med nyt – nu er det meget mere end nogle høretelefoner
Se alle »
CIO
Teaser billede
Til kamp mod legacy og teknisk gæld: Uffe har skrottet 200 servere og 1.000 routere og switches på 140 lokationer
Læs mere »
Microsoft opsplitter Office og Teams: Sådan fungerer opdelingen
Microsoft kalder sine ansatte tilbage på kontoret: Så mange dage om ugen skal de mindst være tilstede
Skynd dig at opdatere: Microsoft har opdaget 86 sårbarheder - flere af dem er alvorlige
Se alle »
Job & Karriere
Teaser billede
Tryg skiller sig af med 225 it-medarbejdere: Outsourcer stor del af sin it-drift til indere
Læs mere »
Lille dansk it-virksomhed fra Vanløse lander drømmekontrakt, der rækker langt ind i stifterens pension
Her er fidusen: Sådan fastholder KMD og Twoday deres it-folk i lang tid
Novo Nordisks CIO og digitale topchef, Anders Romare, forlader selskabet
Se alle »
White paper
Teaser billede
Udnyt Genesys Cloud CX optimalt og styrk kundeoplevelsen
Læs mere »
Fra drift til strategi: IT-chefens genvej til et stærkere netværk
Sådan får du succes med AI i hele organisationen
Undgå at printeren bliver svageste led i sikkerheden
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »