Fjerne 10 første nr i en rekke.

[apekatten123]

Hei.

Er det mulig å fjerne de 10 første nr/bokstavene i et serienr på noen måte. Skulle funnet ut datoen som står i ca 100 serienr etter 10 tegnet i rekken. Jævlig kjedelig å telle ti og ti.

[aklla]

i hva da??

 

er mulig å fjerne dette på mange måter, men hva tenker du på, er dette f.eks noe i excel, access eller noe du har skrevet ned på lapp??

 

litt mer info takk

[apekatten123]

i hva da??

 

er mulig å fjerne dette på mange måter, men hva tenker du på, er dette f.eks noe i excel, access eller noe du har skrevet ned på lapp??

 

litt mer info takk

7383693[/snapback]

 

Er i access. Men de å ta vekk de 10 første er jo bare for å forenkle prosessen. For det er koder igjen for å finne ut datoen uansett.

Så er samma hvor man gjør det igrunn. Men er igrunn fra access fra starten av. Men det har ikke noe å si. Skal forandres der seinere.

[aadnk]

Tja, en kan vel kanskje benytte VBScript. Legg følgende kode inn i en VBS-fil, og gjør de nødvendige modifikasjoner i innstillingsseksjonen slik at det passer overens med din database:

' Initialiser tilkoblingsobjekt

Set Engine = CreateObject("DAO.DBEngine.36")

 

' * INNSTILLINGER *

sFilePath = "C:\Test.mdb" ' Database som skal endres

sTable = "Test" ' Tabell som skal åpnes

sField = "Serienr" ' Felt vi skal modifisere

iLenght = 10 ' Antall karakterer som skal fjernes

 

' Åpner database og tabell

Set Database = Engine.OpenDatabase(sFilePath)

Set rsTable = Database.OpenRecordset(sTable)

 

' Gå gjennom alle rader, ...

Do Until rsTable.BOF Or rsTable.EOF

 

    ' ... hent feltet i denne raden, ...

    vField = rsTable.Fields(sField)

   

    ' ... og gjør klar for redigering.

    rsTable.Edit

 

    ' Ignorer dersom det er tomt

    If Not IsNull(vField) Then

   

        ' Start endringen av elementer

        rsTable.Edit

   

        ' Utfør modifikasjonen

        If Len(CStr(vField)) <= iLenght Then

            rsTable.Fields(sField) = ""

        Else

            rsTable.Fields(sField) = Mid(CStr(vField), 1 + iLenght)

        End If

       

        ' Fullfør

        rsTable.Update

       

        ' Gå til den neste raden

        rsTable.MoveNext

 

    End If

 

Loop

 

' Rydd opp

Set rsTable = Nothing

Set Database = Nothing

Set Engine = Nothing