{"id":2062,"date":"2014-11-19T20:32:27","date_gmt":"2014-11-19T20:32:27","guid":{"rendered":"https:\/\/alt2.minisoft.com\/support\/?p=2062"},"modified":"2014-11-19T20:32:27","modified_gmt":"2014-11-19T20:32:27","slug":"wildcard-file-upload","status":"publish","type":"post","link":"https:\/\/c002.minisoft.com\/support\/wildcard-file-upload\/","title":{"rendered":"Wildcard File Upload"},"content":{"rendered":"<p>Change the transfer parameters as appropriate to BINARY, ASCII, RECSIZE, SAVEINF.<\/p>\n<p>For Windows, modify DOSPRMPT.PIF to use a window. For DOS, use COMMAND.COM in place of DOSPRMPT.PIF.<\/p>\n<p>The host file name is the PC file name with the extension truncated. This script assumes that HOSTF is a legal MPE filename.<\/p>\n<pre>;\r\n; Directory of files to select\r\nLET Var1=\"C:\\MS92\\\"\r\n; File selection\r\nLET Var2=\"*.S92\"\r\n; Maximum number of files to be sent\r\nLET Var3=40\r\n;\r\nSHELL \"DOSPRMPT.PIF \/C DIR \"&amp;Var1&amp;Var2&amp;\" \/B &gt; tempfile\"\r\nCLOSE 1\r\nOPEN tempfile INPUT AS 1 ASCII\r\nLET Var4=0\r\n:L1\r\nREAD 1 Var5\r\nIF ((LENGTH(Var5)&gt;2)AND(Var4&lt;Var3))\r\n  LET Var6=MID(Var5,1,LENGTH(Var5)-2)\r\n  LET Var7=UPPER(MID(Var5,1,FIND(\".\",Var5)-1))\r\n  IF ((MID(Var7,1,1)&lt;\"A\")OR(MID(Var7,1,1)&gt;\"Z\"))\r\n    LET Var7 = \"A\" &amp; Var7\r\n  ENDIF\r\n  IF ( LENGTH ( Var7 ) &gt; 8 )\r\n    LET Var7 = MID ( Var7, 1, 8 )\r\n  ENDIF\r\n  LET Var4=Var4+1\r\n  LOCF Var1&amp;Var6\r\n  HOSTF Var7\r\n  ASCII\r\n  RECSIZE 91\r\n  UPLOAD\r\n  ONTIMER TimeOut\r\n  TIMER 15\r\n  WAITC 17\r\n  GOTO L1\r\nENDIF\r\nCLOSE 1\r\nSTOP\r\n:TimeOut\r\nCLOSE 1\r\nTELL \"Host Time-Out occurred...\"\r\nEND<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Change the transfer parameters as appropriate to BINARY, ASCII, RECSIZE, SAVEINF. For Windows, modify DOSPRMPT.PIF to use a window. For DOS, use COMMAND.COM in place of DOSPRMPT.PIF. The host file name is the PC file name with the extension truncated. This script assumes that HOSTF is a legal MPE filename. ; ; Directory of files [&hellip;]<\/p>\n","protected":false},"author":75,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[55,62],"tags":[],"_links":{"self":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2062"}],"collection":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/users\/75"}],"replies":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/comments?post=2062"}],"version-history":[{"count":1,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2062\/revisions"}],"predecessor-version":[{"id":2063,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2062\/revisions\/2063"}],"wp:attachment":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/media?parent=2062"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/categories?post=2062"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/tags?post=2062"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}