Avatar billede nightowl24 Nybegynder
02. september 2003 - 08:24 Der er 11 kommentarer og
1 løsning

Hurtig måde at fjerne linieskift i en række felter i en tabel?

Hejsa

Jeg skal ha eksporteret en database til concorde, som vist ikke er så glad for linieskift i tabelfelterne.

Findes der en nem måde at fjerne alle linieskift i en række tabelfelter eller skal jeg gå alle 1500 poster igennem manuelt?

Mvh. Brian
Avatar billede henrik13 Nybegynder
02. september 2003 - 08:57 #1
Prøv at lav den til semikolon tekst fil, fra access.
Derefter at importere den i concorde, som semikolon tekst fil.
Vh Henrik
Avatar billede nightowl24 Nybegynder
02. september 2003 - 09:03 #2
Hvordan gør man det?
Avatar billede henrik13 Nybegynder
02. september 2003 - 09:12 #3
Højreklik på tabellen.
Vælg exportere.
Her vælger du ,i rullemenuen tekstfil.
Så kommer gauiden med foreslag.
Vh Henrik13
Avatar billede nightowl24 Nybegynder
02. september 2003 - 09:39 #4
Der kommer stadig linieskift i tekstfilen
Avatar billede henrik13 Nybegynder
02. september 2003 - 09:54 #5
Så kan jeg desværre ikke hjælpe dig.  :o)
02. september 2003 - 13:12 #6
Kør en forespørgsel på tabellen, som fjerner linieskiftet.

Update [DinTabel] Set [DitFelt] = Replace([DitFelt],chr(13) & chr(10),"")

Det burde gøre det.

Hvis du vil have et andet tegn ind i stedet for linieskiftet, skal du indsætte det mellem "" i slutningen af sætningen.
02. september 2003 - 13:13 #7
[DinTabel] og [DitFelt] skal selvfølgelig erstattes med de respektive navne!
Avatar billede nightowl24 Nybegynder
02. september 2003 - 14:19 #8
Jeg får derved fejlen: Undefinded function 'Replace' in expression.
02. september 2003 - 14:21 #9
Hvilken version bruger du? '97?
Avatar billede nightowl24 Nybegynder
02. september 2003 - 14:22 #10
Version 2000
02. september 2003 - 14:24 #11
hmm, Replace burde virke i Access 2000.

Ellers prøv at indsætte denne funktion i et modul:
Public Function MyReplace(Streng As String, Find As String, Erstat As String) As String
    On Error Resume Next
    Dim Pos As Integer, findpos As Integer
    Dim tmpStr As String
    Pos = 1
    If Len(Streng) = 0 Then
      MyReplace = Streng
      Exit Function
    End If
    tmpStr = Streng
    Do
        findpos = InStr(Pos, tmpStr, Find)
        If findpos <> 0 Then
            tmpStr = Left(tmpStr, findpos - 1) & Erstat & Mid(tmpStr, findpos + Len(Find))
            Pos = Pos
        Else
            Pos = Pos + 1
        End If
    Loop Until Pos = Len(Streng)
    If Err Then
      MyReplace = Streng
    Else
      MyReplace = tmpStr
  End If
End Function

Herefter skal din SQL bare se således ud:
Update [DinTabel] Set [DitFelt] = MyReplace([DitFelt],chr(13) & chr(10),"")
Avatar billede nightowl24 Nybegynder
02. september 2003 - 14:36 #12
Det virkede, takker!
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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.

Du kan også logge ind via nedenstående tjenester