Scripting Runtime Library(TextStream)

TextStream 파일에서 현재 문자가 있는 수평 위치 번호를 반환한다.

인수

개체는 항상 TextStream 개체의 이름이다.

설명

읽기전용 속성이다.

TextStream 파일에서 현재 문자가 있는 위치의 열 번호를, 다시 말해서 수평위치를 글자수로 반환한다.

줄바꿈하면 다음 줄 제일 좌측위치로 이동하므로, 줄 바꿈 문자를 쓴 다음 다른 문자는 쓰지 않았다면 Column은 1이 되어 초기화된며, Line 값은 1 증가된다.

Line과 Column의 조합으로 문자열 화일에서 위치를 알 수 있다.

처음 파일을 연 다음 아무 내용도 쓰지 않았다면 Line과 Column은 각각 1이다.


Column 속성 예제

결과 표시창
JScript Column 예제
<SCRIPT language=JScript>
function ColumnTest(filePath){
  var fso,fileObj,tmp;
  var ForReading=1,ForWriting=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  fileObj=fso.OpenTextFile(filePath,ForWriting,true);
  fileObj.Write('안녕하세요');
  fileObj.Close();
  fileObj=fso.OpenTextFile(filePath,ForReading);
  tmp=fileObj.ReadLine();
  return('fileObj.Column='+fileObj.Column);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showjs.innerHTML=ColumnTest('C:\\JsTest\\ColTestFile.txt')">
<SPAN class=ie>JScript</SPAN> <SPAN class=property>Column</SPAN> 예제</DIV>
결과 표시창
VBScript Column 예제
<SCRIPT language=VBScript>
Function ColumnTestvb(filePath)
  Dim fso,fileObj,str
  Const ForReading=1,ForWriting=2
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set fileObj=fso.OpenTextFile(filePath,ForWriting,true)
  fileObj.Write "안녕하세요"
  fileObj.Close
  Set fileObj=fso.OpenTextFile(filePath,ForReading)
  str=fileObj.ReadLine
  ColumnTestvb=str&"<BR>fileObj.Column="&fileObj.Column
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showvb.innerHTML=ColumnTestvb('C:\\JsTest\\ColTestFile.txt')">
<SPAN class=ie>VBScript</SPAN> <SPAN class=property>Column</SPAN> 예제</DIV>