Fra Excel gemmes "firkanter" som linieskift

check for chr(9), 10, 13 - synes at huske, at det ligger i det område.

En forklaring, zappet fra et andet spørgsmål:



"chr(10) hedder også 'line feed', det er også den du får når du skriver '\n' i en C-streng. på en skrivemaskine svarer det til #skub papiret een linie op.

chr(13) hedder også 'carriage return' den skrives i strenge med '\r' og svarer til skrivemaskinens "begynd at skrive fra papirets venstremargin igen"

så på en skrivemaskine markeres afslutningen af en linie med '\n\r'

Men i gamle dage var lagerplads på computeren hundedyr. og en måde at spare var at nøjes med eet tegn der. nogen computermagere valgte så 'line feed' og andre valgte 'carriage return' til det formål. andre igen brugte begge to. Det gav et roderi med filer der skulle omformatteres når man flyttede dem fra een computer til en anden, og det slås vi stadig med.
Du har sikkert selv oplevet at din fil fik dobbelt linieafstand efter en flytning eller også fik alle liniskift udskiftet med SMÅ FIRKANTER i een lang klump tekst når du prøvede at kikke på filen i notepad."



Så der er blot at søge og erstatte chr(10) og chr(13) :o)

Hej

Jeg ved godt, at det drejer sig om chr(10) og chr(13). Har løst problemet med en rigtig "høkerløsning".
Sagen er, at når teksten læses fra et tekstfelt i Excel, vil resultatet fra VB til databasen blive "firkanter" el. andre symboler. Hvilket selvfølgelig har noget at gøre med den bagvedliggende maskinkode. Jeg har en form, hvorfra koden aktiveres, og har i denne form lagt et usynligt tekstfelt. Hvis jeg sender teksten rundt om dette tekstfelt, er problemet løst, og teksten kommer rigtigt ind i databasen med linieskift. I praksis læser jeg teksten fra Excelcellen ind i en VB-variabel, læser værdien af variablen ind i formfeltet, læser teksten fra formfeltet ind i en ny VB-variabel og gemmer værdien herfra i databasen. A little strange but it works!

he he, ja somme tider kræver det lidt opfindsomhed. Jeg tror nu sagtens du kan "kode dig ud af problemet", men hvis din løsning virker, er det jo bon-bon :o)

Hej

Jeg ville gerne kunne kode mig ud af problemet med en slags replace, men det virker ikke på Ascii-niveau med chr(10) og chr(13). Det eneste jeg kan gøre her er at fjerne linieskift. Jeg skal noget dybere ned, og det har jeg ikke nok styr på.

Hmm - jeg vil nu mene du sagtens kan bruge en replace. Først finder du ANSI-koden på din firkant, og derefter søger du på den karakter og skifter med et tegn som din database kan opfatte som linieskift.

Måske kan du bruge
DinTekst=Application.WorksheetFunction.Clean(DinTekst)

Clean fjerner alle "nonprintable" karakterer

Jeg har haft et ligende problem. Det er når man bruger carriage return Linie feed (vbCrLf), at der bliver lave en firkant, hvis du bare bruger linie feed (vbLf) får du ikke samme problemer. Nedenstående eksempel kan måske bruges:
Sub x()
    Dim s As String
    s = "Her er" & vbCrLf & "linjeskift"
    MsgBox s
    s = Replace(s, vbCrLf, vbLf)
    MsgBox s
End Sub

Som du kan se er det nøjagtig det samme der kan ses, men der er alligevel en forskel, menlig den forbandede firkant :)

Hej Rene

Tak for dit svar. Jeg vil ved lejlighed prøve, men det er en møj gammel opgave, og jeg fandt en løsning, som du kan se foroven. Din er selvfølgelig pænere. Iøvrigt kender vi hinanden, tror jeg :-)
Jørgen Vester

Nå, da. Hvorfra?

ok. jeg tager vist fejl. jeg kender en rene nissen, som er indenfor it, men det er nok ikke dig, hvis du ike kender mit navn.

He, he. Nej dit navn si'r mig ikke rigtigt noget, men det kunne jo være en gammel bekendt.

Fik du det løst Jørgen ?