읽기 .path

[ale]

Autocad 2006년 디렉토리에 파일을 추적하는 방법을 발명하려고합니다.
하위 등록 절차는 내가 개발하려고하는 일상의 파편입니다, 나는 왜 내가 디렉토리 이름을 입력하는지 이해 할 수 없습니다 id_1 routine 작업, 내가 일상의 경로 호출하는 경우, id_2 작동하지 않습니다.:
누군가가 나를 도울 수 있습니까?

문자열로 public 함수 j(n as string)

집 n을 선택
"아"하우스: ♪
집 "l" : j = "1"
집 "e": ♪
끝 선택
끝 기능


public sub id_1()
문자열로 디엠 str
문자열로 dim 경로

dim a1 으로 문자열
dim a2 으로 문자열
dim a3 으로 문자열
dim a4 로 문자열

·

a1 = 중간 (str), 4, 1)
a2 = 중간 (str), 5, 1)
a3 = 중간 (str), 6, 1)
a4 = 중간 (str), 7, 1)


x1 = j(a1)
x2 = j(a2)
x3 = j(아)
x4 = j(a4)

벌레.print x1 & x2 & x3 & x4
이름 *


public sub id_2()
문자열로 디엠 str
문자열로 dim 경로

dim a1 으로 문자열
dim a2 으로 문자열
dim a3 으로 문자열
dim a4 로 문자열

경로 = thisdrawing. 계정 정보
str = 경로

a1 = 중간 (str), 4, 1)
a2 = 중간 (str), 5, 1)
a3 = 중간 (str), 6, 1)
a4 = 중간 (str), 7, 1)


x1 = j(a1)
x2 = j(a2)
x3 = j(아)
x4 = j(a4)

벌레.print x1 & x2 & x3 & x4
이름 *

 

[Shape]

그런 다음 문제는 선택 집에 있습니다.

public sub id_2()
문자열로 디엠 str
문자열로 dim 경로

dim a1 으로 문자열
dim a2 으로 문자열
dim a3 으로 문자열
dim a4 로 문자열

경로 = thisdrawing. 계정 정보
msgbox (경로)
str = 경로

a1 = 중간 (str), 4, 1)
a2 = 중간 (str), 5, 1)
a3 = 중간 (str), 6, 1)
a4 = 중간 (str), 7, 1)

디버그.print a1 & a2 & a3 & a4

이름 *

public sub id_1()
문자열로 디엠 str
문자열로 dim 경로

dim a1 으로 문자열
dim a2 으로 문자열
dim a3 으로 문자열
dim a4 로 문자열

·

a1 = 중간 (str), 4, 1)
a2 = 중간 (str), 5, 1)
a3 = 중간 (str), 6, 1)
a4 = 중간 (str), 7, 1)

디버그.print a1 & a2 & a3 & a4
이름 *

이 두 하위는 제대로 작동합니다. . .

나는 당신이해야 할 일을 이해하지 않습니다 ... 그러나 이렇게 작성하지 않습니다

당신이 그것을 통과하지 않는 경우 "n"당신은 케이스를 평가하기 위해. ·

 

[rpor66]

public sub id_2()
문자열로 디엠 str
dim percorso 으로 문자열

dim a1 으로 문자열
dim a2 으로 문자열
dim a3 으로 문자열
dim a4 로 문자열
percorso = thisdrawing. 계정 정보str = 퍼코소

a1 = 중간 (str), 4, 1)
a2 = 중간 (str), 5, 1)
a3 = 중간 (str), 6, 1)
a4 = 중간 (str), 7, 1)


x1 = j(a1)
x2 = j(a2)
x3 = j(a3)
x4 = j(a4)

벌레.print x1 & x2 & x3 & x4
끝 이하

하지만 변수 경로, 같은 내용을 포함, 즉 c:\alex 또는 오히려 c:\alex?

난 그냥 케이스에 대 한 문제.

그러나, 기능

문자열로 public 함수 j(n as string)
집 n을 선택
"아"하우스: ♪
집 "l" : j = "1"
집 "e": ♪
끝 선택
끝 기능

나는 그것을 켜고
문자열로 public 함수 j(n as string)
집 선택 (남)이름 * "아"₢ 킹
이름 * "나는" ₢ 킹
홈 > 제품 "예"₢ 킹
이름 *
끝 기능

관련 기사

 

[ale]

감사합니다 모양, 감사 rpor66, 나는 즐거움을 찾아. :

나는 당신이해야 할 일을 이해하지 않습니다 ... 그러나 이렇게 작성하지 않습니다

나는 모든 일상을 쓸 수 없었다, 그것은 너무 오래되었다, 기능 j, 내 재정 지식에 따라, 숫자 알파벳의 문자를 변경; 사이트맵 C:\의 해당 숫자를 한 후 한 글자를 디버깅할 수 있습니다. 기능 j·사이트맵 나는 각 시간 디렉토리 경로에 transcripting에서 나를 방지 할 희망.

나는 당신의 방향을 autocad로 시도하고, 나는 당신을 알 수 있습니다; 최종 목표는 파일이 등록되는 디렉토리에서 추출 한 식별 코드 디자인에 표시 될 것입니다.
e.g. 번호 012를 보고, 감독 c:\ale.

 

[Shape]

기능 j·

나는 나쁜 것을 읽었고 나는 x1=j (a1) 를 통지하지 않았다

 

[ale]

나는 "msgbox"를 적용하려고하고 문제가 나는 극복했다, 나는 .path에 출연 한 일부 자본이 읽지 않았고, "ucase"는이 부족을 수정했습니다.

나는 "case"가 해결 된 것을 말한다