Leading zeros

vivibuy88 — Sun, 04 Dec 2016 18:06:16 +0800

Can anyone help me solve below question. I want to add leading zeros in front of the string but I can't expected result.

Ex:
String numstr="abc";

String decstr ="13.72";

String formatted ="";
String formatted1="';

formatted= String.format("%06d",numstr);
formatted1= String.format("%08d",decstr);

The output show : 06d 08d

My expected ressult should be : 000abc , 000013.72

Work and Travel

vivibuy88 — Tue, 03 Feb 2015 12:53:27 +0800

Please provide some suggestion for below three agencies ( WORK AND TRAVEL)
Anyone can share your experience ?

1. Speedwing
2. Out of the box
3. Infinity abroad

Which one would you guys choose ?

WORK AND TRAVEL

vivibuy88 — Tue, 27 Jan 2015 21:50:33 +0800

I'm thinking of participate work and travel USA but no idea which agencies is good
Anyone can share your experience ?

1. Speedwing
2. Out of the box
3. Infinity abroad

Which one would you guys choose ?

Help me Visual Basic 2010 !

vivibuy88 — Sat, 28 Jun 2014 12:41:13 +0800

VISUAL BASIC !
Please help me ! I'm having error on
408:
For csv_row = 3 To 3 + count_csv
unmount = sheet1.Range(csv_row, 8) HResult : 0 X800A03EC Exception from HResult
csv_location$ = sheet1.Cells(csv_row, 4)
csv_location_Check$ = sheet1.Cells(csv_row, 7)
If csv_location_Check$ = "MP" Or csv_location_Check$ = "TP" Then GoTo 408

For rmd_row = 13 To 13 + count_rmd

Typ$ = VB.Left(VB.Right(sheet2.Cells(rmd_row, 1), 36), 3)
CT$ = VB.Left(VB.Right(sheet2.Cells(rmd_row, 1), 45), 6)
locate$ = VB.Right(VB.Left(sheet2.Cells(rmd_row, 1), 7), 5)
locateLength$ = VB.Left(VB.Right(locate$, 3), 1)
partNumber$ = VB.Right(VB.Left(sheet2.Cells(rmd_row, 1), 27), 13)
partNumber2$ = VB.Left(partNumber$, 1) + VB.Right(VB.Left(partNumber$, 5), 3) + VB.Right(VB.Left(partNumber$, 9), 3) + VB.Right(partNumber$, 2)

Next
If sheet2.Cells(sheet2.Cells(locate$, 3), 1) = "" Then
locate2$ = sheet2.Cells(locate$, 2) + "000" + sheet2.Cells(sheet2.Cells(locate$, 4), 1)
locate_rmd$ = sheet2.Cells(locate$, 1) + sheet2.Cells(sheet2.Cells(locate$, 4), 1)
ElseIf sheet2.Cells(sheet2.Cells(locate$, 2), 1) = "" Then
locate2$ = sheet2.Cells(locate$, 1) + "00" + sheet2.Cells(sheet2.Cells(locate$, 4), 2)
locate_rmd$ = sheet2.Cells(locate$, 1) + sheet2.Cells(sheet2.Cells(locate$, 4), 2)
ElseIf sheet2.Cells(sheet2.Cells(locate$, 1), 1) = "" Then
locate2$ = sheet2.Cells(locate$, 1) + "0" + sheet2.Cells(sheet2.Cells(locate$, 4), 3)
locate_rmd$ = sheet2.Cells(locate$, 1) + sheet2.Cells(sheet2.Cells(locate$, 4), 3)
Else
locate2$ = locate$
locate_rmd$ = locate$
End If

If unmount$ <> "n.b." And csv_location$ = locate_rmd$ Then
For eBom_row = 14 + i To count_rmd
If CT$ = "TOP" And Typ$ = "smd" Then
top_comp = top_comp + 1
i = i + 1
sheet3.Cells(eBom_row, 4) = partNumber2$
sheet3.Cells(eBom_row, 3) = locate2$
sheet3.Cells(eBom_row, 6) = "CT"
Exit For
ElseIf CT$ = "BOTTOM" And Typ$ = "smd" Then
smd_bot = smd_bot + 1
Exit For
ElseIf Typ$ <> "smd" And Typ$ <> "" Then
error_ma = error_ma + 1
ma_txt.Text = ma_txt.Text & vbNewLine & "Please define indertion " & locate2$
Print(3, "Please define" & locate2$)
Exit For
End If
Next
End If
If unmount$ = "n.b." And csv_location$ = locate_rmd$ Then
error_nb = error_nb + 1
unmount_txt = unmount_txt.Text & vbNewLine & csv_location$ & "-" & sheet1.Cells(csv_row, 7)
Print(1, csv_location$ & "-" & sheet1.Cells(csv_row, 7))
ElseIf csv_location$ = rmd_location$ Then
Exit For
End If
Next

'check for CB
m = 0
smd_top = 16 + i
Bot_exit = 0
Bot_comp = 1
If smd_bot <> 0 Then
For csv_row = 3 To 3 + count_csv
unmount$ = sheet1.Cells(csv_row, 8)
csv_location$ = sheet1.CellS(csv_row, 4)
csv_location_Check$ = sheet1.Cells(csv_row, 7)[attachmentid=4031686][attachmentid=4031687][attachmentid=4031686][attachmentid=4031687]

Lowyat.NET: Latest topics by vivibuy88

Leading zeros

Work and Travel

WORK AND TRAVEL

Help me Visual Basic 2010 !