25. januar 2009 - 08:51Der er
11 kommentarer og 1 løsning
Kun anvende dele af streng
Hej
Jeg har lavet følgende for at data fra SQL database ind i et worddokument - det fungerer fint! Jeg ville imidlertid gerne undgå alt før (og inklusiv) tegnet ":" (altså kolon). Kan nedenstående modificeres lidt:
Dim Command As New SqlCommand("SELECT * FROM " & Database & " WHERE [Patient nr] = '" & PatientID & "'", Connection) Dim reader As SqlDataReader = Command.ExecuteReader() If reader.Read() Then If Not reader.IsDBNull(1) Then CNS0 = OPDato & vbCrLf & vbTab & reader.GetString(1).ToString End If If Not reader.IsDBNull(8) Then CNS1 = DateAdd(DateInterval.Day, 1, OPDato) & vbCrLf & reader.GetString(8).ToString End If
Det drejer sig om EN tekstbox hvor der frit kan skrives. Hver bruger der skriver starter med vagttype efterfulgt af initialer og kolon. Man kan altså skrive frit og ikke begrænset til en linie
Dim txt As String = "A:bla bla" & vbCrLf & "B:mere bla bla" & vbCrLf & "C:igen igen" Dim lines() As String = txt.Split(vbCrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries) For i As Integer = 0 To lines.Length-1 Dim lineix As Integer = lines(i).IndexOf(":") lines(i) = lines(i).Substring(lineix + 1) Next txt = String.Join(vbCrLf, lines)
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.