30. april 2007 - 13:08Der er
11 kommentarer og 1 løsning
Tekst om bygning via vb
Hey jeg Har en gammel vb.exe fil som har gemt noget data i X.antal af tekst filer. som jeg har overført til excel. X=Mange
vb.exe filen har på en eller anden måde kunde holde styr på den database, men andre systemer kan ikke finde hover eller hale i det...
Har fået samlet det sammen til rækker som bare skal deles op
Hvis Række 1 er indexkolonnen Vil min data komme i kolonne "A:A" Min data ser sådan ud. KNr:654654 Id1:kæjbhvb564658 Id2:jhd4fdfg:sdf Id1:kæjbhvb564658 KNr:654654 Id2:jhd4fdfg:sdf Id2:jhd4fdfg:sdf Id1:kæjbhvb564658 KNr:654654
Det jeg vil have den til er Finde "KNr:" i hver række og sætte den tekst efter "KNr:" i "B:B" Det samme med "Id1:" til "D:D" Og "Id2:" Til "E:E"
Det er værdien i "A1" [A2]KNr:654654 Id1:kæjbhvb564658 Id2:jhd4fdfg:sdf [A3]Id1:kæjbhvb564658 KNr:654654 Id2:jhd4fdfg:sdf [A4]Id2:jhd4fdfg:sdf Id1:kæjbhvb564658 KNr:654654
Den står ikke som den skal hele tiden... Den skal finde værdien "KNr:" og flytte det som er efter ":" og flytte det ud på B,C,D ud for hvad der står før : [B2"KNr:"] = "654654" [C2"Id1:"] = kæjbhvb564658 [D2"Id2:"] = jhd4fdfg:sdf [B3"KNr:"] = "654654" [C2"Id1:"] = kæjbhvb564658 [D2"Id2:"] = jhd4fdfg:sdf [B4"KNr:"] = "654654" [C2"Id1:"] = kæjbhvb564658 [D2"Id2:"] = jhd4fdfg:sdf hvis det giver nogle ide,
Public Sub Test() Dim A(2) As String, B As Integer, C As Integer, Selle As Range A(0) = "KNr:": A(1) = "Id1:": A(2) = "Id2:" For Each Selle In Selection For I = 0 To 2 B = InStr(1, Selle, A(I)) + 4 C = (InStr(B, Selle, " ") - 1) - B If C < 0 Then C = Len(Selle) - B Cells(Selle.Row, I + 2) = Mid(Selle, B, C) Next Next End Sub
en lille rettelse Public Sub Test() Dim A(2) As String, B As Integer, C As Integer, Selle As Range A(0) = "KNr:": A(1) = "Id1:": A(2) = "Id2:" For Each Selle In Selection For I = 0 To 2 B = InStr(1, Selle, A(I)) + 4 C = (InStr(B, Selle, " ")) - B If C < 0 Then C = Len(Selle) + 1 - B Cells(Selle.Row, I + 2) = Mid(Selle, B, C) Next Next End Sub
Public Sub Test() Dim A(2) As String, B As Integer, C As Integer, Selle As Range A(0) = "KNr:": A(1) = "Id1:": A(2) = "Id2:" For Each Selle In Selection For I = 0 To 2 B = InStr(1, Selle, A(I)) If B > 1 Then If Mid(Selle, B - 1, 1) <> " " Then Selle.Value = Left(Selle, B - 1) & " " & Right(Selle, Len(Selle) + 1 - B) End If End If Next For I = 0 To 2 B = InStr(1, Selle, A(I)) + 4 C = (InStr(B, Selle, " ")) - B If C < 0 Then C = Len(Selle) + 1 - B Cells(Selle.Row, I + 2) = Mid(Selle, B, C) Next Next End Sub
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.
