하위 예 1()
문자열로 문자열 어둡게 strline으로 희미한 strFinal가
"D : \ textfile.txt"입력으로 입력 # 1 W 하일 EOF (1) 거짓 라인 입력 1, strline 을 = 만약 렌 (strline)> 24 다음 strFinal = strFinal + ModifyColumn (strline) 그렇지 strFinal = strFinal + strline + vbCrLf 최종면 나아가 다 strFinal = strFinal 닫기 # 1
열기 : # 1 인쇄 # 1, strFinal 닫기 # 1 종료 하위
기능 ModifyColumn (ByVal의 strInput으로 문자열) 문자열로 출력은 "D \는 TextFile.txt",363,210 어둡게 arrString() 문자열로 어둡게 strOutput 문자열 바와은 그대로 제 2 열을 연결하여 '열 arrString = 스플릿 (strInput, vbTab) 분할' strOutput = arrString (0) + vbTab + arrString (1) 에 값을 100을 더한다.last3Digit = 오른쪽 (requirevalue, 3) (2)' If left (requirevalue, 3) = "max"Then Newvalue = vbTab + "OTPxxxxxx"& last3Digit & "|" & 우 (arrString (3), 렌 (arrString (3)) - InStr이 (1, arrString (3), "|")) + vbCrLf 그렇지 이 NEWVALUE = vbTab + arrString (3) + vbCrLf 최종면 strOutput = strOutput & Newvalue 'strOutput = strOutput + 문자열입니다.트림 (STR (CDbl에는 (왼쪽 (arrString (3), 렌 (arrString (2)) - 1)) + 100)) + "$"+ vbCrLf ModifyColumn = strOutput 최종 기능
는 당신에게 당신을위한 대단히 감사합니다 도움. 초보자이며 VBA에서 스크립팅을하고 있습니다. 이 코드는 C입니다. Visual Basic에서이를 스크립팅하는 방법을 알고 있습니까? 감사합니다 – user2341018
죄송합니다, EWS 및 VBA에 대해 많이 알지 못합니다. 하지만 PropertyAccessor를 통해 확장 속성에 계속 액세스 할 수 있습니다. 자세한 내용은 ... http://msdn.microsoft.com/de-de/library/office/ff869865.aspx –