KnowHow – Page 8 – Form Follows Energy

[문제]

"           String Goes Here"
"     String Goes Here      "
"String Goes Here           "

" String Goes Here"

" String Goes Here "

"String Goes Here "

[해결책]

Dim s As String = "String goes here"
Dim line1 As String = String.Format("{0,27}", s)
Dim line2 As String = String.Format("{0,-27}", String.Format("{0," + ((27 + s.Length) / 2).ToString() +  "}", s))
Dim line3 As String = String.Format("{0,-27}", s)

Dim s As String = "String goes here"

Dim line1 As String = String.Format("{0,27}", s)

Dim line2 As String = String.Format("{0,-27}", String.Format("{0," + ((27 + s.Length) / 2).ToString() + "}", s))

Dim line3 As String = String.Format("{0,-27}", s)

3.Composite Formatting

{ index[,alignment][:formatString]}

2017/02/222017/02/23

[dxf]AutoCAD DXF Reference

Product	Version	Size	Format
AutoCAD® 2014	v.u.28.1.01	1,114 KB	PDF
AutoCAD® 2013	v.u.27.1.01	1,114 KB	PDF
AutoCAD® 2012	v.u.26.1.01	1,112 KB	PDF
AutoCAD® 2011	v.u.25.1.01	844 KB	PDF
AutoCAD® 2010	v.u.24.1.01	842 KB	PDF
AutoCAD® 2009	v.u.23.1.01	1.72 MB	PDF
AutoCAD® 2008	v.u.22.1.01	1.80 MB	PDF
AutoCAD® 2007	v.u.21.1.01	1.07 MB	PDF
AutoCAD® 2006	v.u.20.1.01	1.73 MB	PDF
AutoCAD® 2005	v.u19.1.01	1.65 MB	PDF
AutoCAD® 2004	v.u18.1.01	1502 KB	PDF
AutoCAD® 2002	v.u16.1.01	1627 KB	PDF
AutoCAD® 2002	v.u16.1.01	494 KB	ZIP
AutoCAD® 2000	v.u15.0.02	n/a	HTML
		205 KB	EXE
		204 KB	ZIP
AutoCAD® Release 14	v.u14.1.04	n/a	HTML
		159 KB	EXE
		161 KB	ZIP
AutoCAD® Release 13	v.u13.1.01	97 KB	EXE
AutoCAD® Release 12		n/a	HTML
AutoCAD® Release 11		n/a	HTML
AutoCAD® Release 10		n/a	HTML

이상의 내용은 아래 사이트에 한꺼번에 정리되어 있다.
Excerpted from AutoCAD DXF Reference

2017/02/202017/02/23

[vb]mono와 visual studio의 인코딩

1.Visual Studio 와 Mono Develop 의 소스코드 인코딩 방식
여기 설명한 대로 하려면 버전을 맞춰야 한다. 현재 VS2008를 사용하고 있다.

2.Visual studio 2010 에서 소스파일을 UTF-8 로 자동변환
매크로(아래 코드)를 이용하여 소스파일을 UTF-8로 변환한다. 이를 사용하는 방법은 해당 사이트에서 얻을 수 있다.

Sub MakeUTF8File(ByVal path As String)
    Dim input As New FileStream(path, FileMode.Open)

    'Check BOM
    Dim isUTF8 As Boolean = (input.ReadByte = &HEF And input.ReadByte = &HBB And input.ReadByte = &HBF)
    input.Close()

    If (Not isUTF8) Then
        Dim s As String
        s = File.ReadAllText(path, System.Text.Encoding.Default)
        File.WriteAllText(path, s, System.Text.Encoding.UTF8)
    End If
End Sub

Public Sub DocumentEvents_DocumentSaved(ByVal Document As EnvDTE.Document) Handles DocumentEvents.DocumentSaved
    Dim path As String = Document.FullName
    MakeUTF8File(path)
End Sub