Vb 를 사용하여 간단한 번역을 달성하는 방법

공공? 기능? ConvertString(ByVal? StrText? 로? 문자열)

암담한가? 스텔라? 로? 다르다

스텔라? =? "? -a-b-c-d-e-f-g-h-I-j-k-l-m-n-o-p-q-r-s-t-u-

스텔라? =? 분할 (stra, "-")

뭐 때문에? 나? =? 0? 어디 가? 균형이 맞지 않다

StrText? =? 대체 (strText, strA(i),? 형식 (나,? "00")? & amp? "?" ) 을 참조하십시오

다음? 나

ConvertString? =? 트림 (strText)

끝? 함수는 위의 함수를 모듈에 추가한 다음 코드를 사용합니다.

텍스트 2. Text = convertstring (텍스트1. 본문)

Text 1 의 내용을 숫자로 변환하여 Text2 에 표시할 수 있습니다.

제가 쓴 이 함수는 영문자와 공백만 변환하는데 (strA= ""), 영문자가 아니면 공백이 직접 유지됩니다.