04. september 2007 - 17:50Der er
6 kommentarer og 1 løsning
0 foran værdi hvis mindre end 10
Jeg henter linierne fra en tekstfil ind i en listbox. Derefter vil jeg gerne kunne omdøbe filerne i en bestemt mappe med det som står i listbox + tekstfelter. Text2.Text er første del indtaster, f.eks. 03 Text3.Text er anden del som man indtaster, f.eks. 7 (eller 07)
Dette skal så laves om (bruger pt. bare en Msbox til at tjekke output:
(Bemærk a er sat som public integer) Private Sub Command3_Click() a = Text3.Text For i = 0 To List1.ListCount - 1 If a < "10" Then a = "0" & a End If MsgBox ("Det her er: A" & Text2.Text & "B" & a & " " & List1.List(i)) a = a + 1 Next i End Sub
Men den vil ikke skrive a med 0 forna (altså 2 tegn) hvis det er mindre end 10. Hvis jeg så prøver at bruge Text3.Text hele vejen i tælleren, så vises den rigtig hvis jeg skriver 07 i Text3.text med 8 er uden 0
Men kan de ikke klares sådan her: For i = 0 To List1.ListCount - 1 b = "0" If a < "10" Then a = b & a End If MsgBox ("Det her er: A" & Text2.Text & "B" & a & " " & List1.List(i)) a = a + 1 Next i
PPrivate Sub Command3_Click() Dim X As String a = Text3.Text For i = 0 To List1.ListCount - 1 If a < 10 Then X = "0" Else X = "" End If MsgBox ("Det her er: A" & Text2.Text & "B" & X & a & " " & List1.List(i)) a = a + 1 Next i End Sub
nu har jeg ikke testet, men mon ikke også format kunne gøre det.
Du kan jo prøve at teste med lidt af hvert. Format(a, "00.0") Format(a, "##") Format(a, "##.0")
o.s.v
Private Sub Command3_Click() Dim X As String a = Text3.Text For i = 0 To List1.ListCount - 1 MsgBox ("Det her er: A" & Text2.Text & "B" & Format(a, "00.0") & " " & List1.List(i)) a = a + 1 Next i 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.
