8 svar · 1 388 visningar · startad av devotion
Hej,
Jag vet inte om detta är helt rätt forum, om inte, flytta till rätt, tack!
Jag har läst in en textfil till en tabell. är jag tittar i Windowsapplikationen, så avslutas testxten med en liten fyrkant. Markerar jag den och klistrar in den i notepad, blir det en radmatning. Likadant i Word.
Bifogad bild visar hur det ser ut i applikationen.
Hur kan jag få bort det?
Mvh
Henrik
Ingen? :)
function trim(value)
set re = new regexp
re.pattern = "(?:^(?:\s|\n|\r)+)|(?:(?:\s|\n|\r)+$)"
re.global = true
trim = re.replace(value, "")
end function
mystring = trim(mystring)
Antingen skriver man en UDF som sköter detta, eller så i applikationen. Jag skulle nog filtrera bort det innan det skickas in i databasen.
Problemet är att det redan "hamnat" i databasen...... :e
Men, ett lite vb-script som fixar biffen kanske....
Mvh
Henrik
Då kanske denna skulle haman i något ännat finfint forum, då jag löste det med en funktion i vb-script!
Så här gjorde jag:
'*************************************************************
option explicit
'Funktion som tar bort radmatningstecken
function trimVbCrLf(value)
dim re
set re = new regexp
re.pattern = "(?:^(?:\s|\n|\r)+)|(?:(?:\s|\n|\r)+$)"
re.global = true
trimVbCrLf = re.replace(value, "")
end function
'*********************************
' main()
'*********************************
sub main()
dim sSQL, Conn, Rs
dim sTask, lId
'Skapa objekt
Set Conn=CreateObject("ADODB.Connection")
Conn.Open Application.sDbConnectionString
Set Rs=CreateObject("ADODB.Recordset")
sSQL= "SELECT [Id], [Task] FROM [tblContractTemplate]"
Rs.Open sSQL, Conn
'Om det inte finns några poster, avsluta suben
If Rs.EOF then exit sub
'tömma variabeln
sSQL=""
'Loopa ut alla uppdragsidena
while Not Rs.EOF
lId=Rs("Id")
sTask=trimVbCrLf(Rs("Task"))
sSQL= sSQL & "UPDATE tblContractTemplate SET Modified = GetDate(), Task = '" & sTask & "' WHERE [Id] = " & lId & ";"
Rs.MoveNext
wend
Conn.Execute sSQL,,128
'Förstöra objekten
Rs.Close
Set Rs=Nothing
Set Conn=Nothing
'Klart!
MsgBox "Radbrytningar har tagits bort!"
Call Refresh()
end sub