String – Form Follows Energy

2006/10/182015/12/12

한글 텍스트 파일 읽기

한글 텍스트 파일을 읽기 위해서는 인코딩을 다음과 같이 지정해 주어야 한다.

'파일스트림 열기
Dim fs As New FileStream("myhangultext.txt", FileMode.Open, FileAccess.Read)
'
'스트림리더 열기
'*** 주의 : System.Text.Encoding.Default를 지정해야 '한글'을 읽어올 수 있음!!!
'시스템의 현재 ANSI 코드 페이지에 대한 인코딩을 가져옵니다
'Dim Reader As New StreamReader(fs, System.Text.Encoding.Default)
'--> 사실 이렇게 하면, 한글윈도우이어야 읽을 수 있다.
'명확히 한글을 읽을 수 있게 하려면 다음과 같이 해야 한다.
Dim Reader As New StreamReader(fs, System.Text.Encoding.GetEncoding(949))
'여기서 949는 한글에 대한 code page이다.
'
'자료를 읽기
Call Parse(Reader)
'
'스트림리더 닫기
Reader.Close()

'파일스트림 열기

Dim fs As New FileStream("myhangultext.txt", FileMode.Open, FileAccess.Read)

'스트림리더 열기

'*** 주의 : System.Text.Encoding.Default를 지정해야 '한글'을 읽어올 수 있음!!!

'시스템의 현재 ANSI 코드 페이지에 대한 인코딩을 가져옵니다

'Dim Reader As New StreamReader(fs, System.Text.Encoding.Default)

'--> 사실 이렇게 하면, 한글윈도우이어야 읽을 수 있다.

'명확히 한글을 읽을 수 있게 하려면 다음과 같이 해야 한다.

Dim Reader As New StreamReader(fs, System.Text.Encoding.GetEncoding(949))

'여기서 949는 한글에 대한 code page이다.

'자료를 읽기

Call Parse(Reader)

'스트림리더 닫기

Reader.Close()

2006/08/072021/01/03

문자열을 읽어서 단어로 나누어 주는 함수 짜기

입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.

Function GetWords(ByVal TextLine As String, ByVal ParamArray Separators() As Char) As String()
'
' 입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.
' divide character string into separate words according to period and blank space.
'
'Revision History
' &amp;amp;nbsp;Written by Yong-Yee Kim, 2005/11/25
'
Dim MySeparators() As Char = {","c, ":"c, "|"c, ";"c, """"c, "'"c} '기본 구분자 = 쉼표, 콜론, 파이프, 세미콜론, 큰따옴표, 작은따옴표
Dim Words() As String = {}
'
'1)문자열 시작과 끝의 공백을 제거한다.
TextLine = TextLine.Trim()
'
'2)문자열을 구분자(쉼표)를 통하여 분할한다.
If Separators.Length &amp;amp;gt; 0 Then
MySeparators = Separators
End If
Dim Tokens() As String = TextLine.Split(MySeparators)

'
'3)얼마나 많은 단어가 존재하는가?
Dim nums As Integer = 0
For i As Integer = 0 To Tokens.Length - 1
If Tokens(i).Trim.Length &amp;amp;gt; 0 Then '빈 문자열의 단어는 제외시킴
nums += 1
End If
Next i
'
'4)단어수만큼 배열을 할당
ReDim Words(nums - 1)
'
'5)단어를 반환한다.
Dim WordCount As Integer = 0
For j As Integer = 0 To Tokens.Length - 1
If Tokens(j).Trim.Length &amp;amp;gt; 0 Then
Words(WordCount) = Tokens(j).Trim
WordCount += 1
End If
Next j
'
Return Words
End Function

Function GetWords(ByVal TextLine As String, ByVal ParamArray Separators() As Char) As String()

' 입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.

' divide character string into separate words according to period and blank space.

'Revision History

' &amp;nbsp;Written by Yong-Yee Kim, 2005/11/25

Dim MySeparators() As Char = {","c, ":"c, "|"c, ";"c, """"c, "'"c} '기본 구분자 = 쉼표, 콜론, 파이프, 세미콜론, 큰따옴표, 작은따옴표

Dim Words() As String = {}

'1)문자열 시작과 끝의 공백을 제거한다.

TextLine = TextLine.Trim()

'2)문자열을 구분자(쉼표)를 통하여 분할한다.

If Separators.Length &amp;gt; 0 Then

MySeparators = Separators

End If

Dim Tokens() As String = TextLine.Split(MySeparators)

'3)얼마나 많은 단어가 존재하는가?

Dim nums As Integer = 0

For i As Integer = 0 To Tokens.Length - 1

If Tokens(i).Trim.Length &amp;gt; 0 Then '빈 문자열의 단어는 제외시킴

nums += 1

End If

Next i

'4)단어수만큼 배열을 할당

ReDim Words(nums - 1)

'5)단어를 반환한다.

Dim WordCount As Integer = 0

For j As Integer = 0 To Tokens.Length - 1

If Tokens(j).Trim.Length &amp;gt; 0 Then

Words(WordCount) = Tokens(j).Trim

WordCount += 1

End If

Next j

Return Words

End Function

여기서 3)과 5)가 많이 비슷하고 중복된 것으로 느낄 것이다.
그래서 어느 한 쪽을 지워버리면 어떤 일이 생길까?
시간이 되시면 한 번씩 해보면 좋을 것 같다.
결론부터 말하자면, 빈 문자열도 하나의 단어처럼 취급될 수 있다.
즉, 원하는 결과를 제대로 얻을 수 없다.

[사용법]

Dim Words() As String = Getwords("김창선, 4", ",") '문자열을 쉼표로 구분하라
'Words(0) 의 내용은 "김창선"
'Words(1)의 내용은 "4"

Dim Words() As String = Getwords("김창선, 4", ",") '문자열을 쉼표로 구분하라

'Words(0) 의 내용은 "김창선"

'Words(1)의 내용은 "4"

2006/04/032015/12/13

Single.Parse()처럼 문자열을 객체로 만드는 방법

Single.Parse()는 문자열을 읽어서 그 값을 Single형 값으로 바꾸어준다.

Dim myValue As Single = Single.Parse("36.5")

1	Dim myValue As Single = Single.Parse("36.5")

myValue는 단정도 실수인 36.5가 된다.

이 방법은 파일에서 문자열을 읽어온 후에, 그 값을 전환하는데 있어서 매우 유용하다.

같은 방법으로 문자열을 읽어서 특정 객체를 생성시키려면 다음과 같이 하면 된다.

<작성하고자 하는 클래스>

Public Class Person '클래스명 = Person
  Private m_Name As String
  Private m_Age As Short
  ...<중략>....
End Class

Public Class Person '클래스명 = Person

Private m_Name As String

Private m_Age As Short

...<중략>....

End Class

1) String형 매개변수를 갖는 생성자를 선언한다.

그리고, 생성자 코드 안에 문자열을 해석할 InternalParse를 호출한다.

Public Sub New(ByVal myText As String)
  InternalParse(myText)
End Sub

Public Sub New(ByVal myText As String)

InternalParse(myText)

End Sub

생성자 내용을 간단하게 하는 것이 좋다.

다른 함수(초기화메소드)를 이용하면, 인스턴스 변수에 대한 초기화를 생성자 이외에서도 할 수 있다.

2) InternalParse() 메소드를 작성한다.

Private Sub InternalParse(ByVal myText As String)
  '문자열을 분해한다.
  Dim Words() As String = GetWords(myText) 'GetWords에 대한 함수는 각자가 작성 ^^
  '하나의 문자열을 의미있는 단어로 분할!
  '분해된 문자열을 인스턴스 변수에 대입한다.
  m_Name = Words(0) '이름
  m_Age = Short.Parse(Words(1)) '나이
End Sub

Private Sub InternalParse(ByVal myText As String)

'문자열을 분해한다.

Dim Words() As String = GetWords(myText) 'GetWords에 대한 함수는 각자가 작성 ^^

'하나의 문자열을 의미있는 단어로 분할!

'분해된 문자열을 인스턴스 변수에 대입한다.

m_Name = Words(0) '이름

m_Age = Short.Parse(Words(1)) '나이

End Sub

3) Parse() 메소드를 작성한다.

이 때, 이 클래스의 인스턴스 없이 Parse()메소드를 호출하기 위해서는 Shared를 선언한다.

Public Shared Function Parse(ByVal myText As String) As Person
  Return New Person(myText)
End Sub

Public Shared Function Parse(ByVal myText As String) As Person

Return New Person(myText)

End Sub

4)사용법

Dim mySon As Person = Person.Parse("김창선, 4")

1	Dim mySon As Person = Person.Parse("김창선, 4")

이름은 ‘김창선’이고 나이는 ‘4’인 mySon 인스턴스가 생긴다.