JWW専用掲示板

HOME HELP 新規作成 新着記事 ツリー表示 発言ランク ファイル一覧 検索 過去ログ

■44514 / 4階層)  作成してみました(作成データ削除済み)
□投稿者/ O.M (5回)-(2014/09/22(Mon) 14:44:06)
    2014/09/23(Tue) 19:02:12 編集(投稿者)
    2014/09/23(Tue) 19:01:28 編集(投稿者)
    2014/09/22(Mon) 19:55:40 編集(投稿者)



    とりあえずVB2013 Expressで作成してみました。
    自分のPCでは動いたんですが、ほかで動くかどうかはわからないです。
    うごかなかったらごめんなさい。

    ※※※データ削除しました※※※


    1.(初回のみ)ダウンロードする
    ※exeファイルをzip形式で圧縮しているため、chromeだと警告文がでます。
    (lzh形式で圧縮したら警告は出ないのですが、解凍方法がわからない方が多いようなので…)
     ▼をおして継続、▼を押して実行でダウンロードできます

    2.(初回のみ)zipファイルを解凍する(exeファイルがでてきます)

    3.exeファイルを実行

    4.(初回のみ)_win.exeのあるファイルを指定

    5.図面情報を貼り付け
    《貼り付け例》
    C:\jww\Aマンション25d.jww -M -P0,0,1,0,0 -LP000@800P0200800P0200800P0200800P0200800P0200?oo043oooooooooooooooooooooooooooooooooooooool

    6.実行ボタンを押す

    タスクバーにリンクつくっておいて、起動実行で作業少しははやくなるんじゃないかと思います。







    中身は主に
    http://dobon.net/index.html
    のコードをまるっとコピーしてちょろっと編集してる感じで作成したのですが、カンで作業してよくわかってないので変なとこは多いかと思います。
    設定保存のために、アプリケーションのプロパィでjwwexeという名前でユーザー型Stringを作成していますが、使い方があってるかもわかってません…。


    Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    My.Settings.Reload()
    TextBox1.Text = My.Settings.jwwexe.ToString
    End Sub

    CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Private Shared Function GetShortPathName( _
    System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
    ByVal lpszLongPath As String, _
    System.Runtime.InteropServices.UnmanagedType.LPTStr)> _
    ByVal lpszShortPath As System.Text.StringBuilder, _
    ByVal cchBuffer As Integer) As Integer
    End Function

    '''
    ''' 短いファイルパス名を取得する
    '''

    ''' ファイルのパス
    ''' 短いパス名
    Public Shared Function GetShortPath(ByVal path As String) As String
    Dim sb As New System.Text.StringBuilder(1023)
    Dim ret As Integer = GetShortPathName(path, sb, sb.Capacity)
    If ret = 0 Then
    Throw New Exception("短いファイル名の取得に失敗しました。")
    End If
    Return sb.ToString()
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim ofd As New OpenFileDialog()

    ' FolderBrowserDialog の新しいインスタンスを生成する (デザイナから追加している場合は必要ない)
    Dim FolderBrowserDialog1 As New FolderBrowserDialog()

    ' ダイアログの説明を設定する
    FolderBrowserDialog1.Description = "ここに説明を書いてください"

    ' ルートになる特殊フォルダを設定する (初期値 SpecialFolder.Desktop)
    FolderBrowserDialog1.RootFolder = System.Environment.SpecialFolder.MyComputer

    ' 初期選択するパスを設定する
    FolderBrowserDialog1.SelectedPath = "C:\Program Files\"

    ' [新しいフォルダ] ボタンを表示する (初期値 True)
    'FolderBrowserDialog1.ShowNewFolderButton = True

    ' ダイアログを表示し、戻り値が [OK] の場合は、選択したディレクトリを表示する
    If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    TextBox1.Text = FolderBrowserDialog1.SelectedPath & "\Jw_win.exe"
    End If

    My.Settings.jwwexe = TextBox1.Text
    My.Settings.Save()

    ' 不要になった時点で破棄する (正しくは オブジェクトの破棄を保証する を参照)
    FolderBrowserDialog1.Dispose()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim RetVal
    Dim stArrayData() As String
    Dim stData As String
    Dim stData2 As String

    On Error Resume Next
    stArrayData = Split(TextBox2.Text, ".jww")

    stData = GetShortPath(System.IO.Path.GetDirectoryName(stArrayData(0) & ".jww"))
    stData2 = System.IO.Path.GetFileName(stArrayData(0) & ".jww")
    stArrayData(0) = stData & "\" & stData2

    RetVal = Shell((TextBox1.Text & " " & String.Join(" ", stArrayData)).Trim, 1)
    Me.Close()
    End Sub

    End Class

325×224 => 250×172

1411364646.png
/35KB
記事引用 [メール受信/OFF] 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[3]: 図面情報コピーのデータで、エクスプ.. /O.M 返信無し
 
上記関連ツリー

Nomal 図面情報コピーのデータで、エクスプローラー.. / 嘉久 (14/09/20(Sat) 12:01) #44506
Nomal Re[1]: 図面情報コピーのデータで、エクスプ.. / O.M (14/09/20(Sat) 18:33) #44507
│└Nomal Re[2]: 図面情報コピーのデータで、エクスプ.. / 嘉久 (14/09/21(Sun) 08:44) #44510
│  ├Nomal Re[3]: 図面情報コピーのデータで、エクスプ.. / O.M (14/09/22(Mon) 09:37) #44512
│  │├Nomal 作成してみました(作成データ削除済み) / O.M (14/09/22(Mon) 14:44) #44514 1411364646.png/35KB ←Now
│  │└Nomal Re[4]: 図面情報コピーのデータで、エクスプ.. / 嘉久 (14/09/23(Tue) 18:15) #44519
│  │  └Nomal Re[5]: 図面情報コピーのデータで、エクスプ.. / O.M (14/09/23(Tue) 19:00) #44520
│  └Nomal Re[3]: 図面情報コピーのデータで、エクスプ.. / kojima (14/09/22(Mon) 15:51) #44515
Nomal Re[1]: 図面情報コピーのデータで、エクスプ.. / kojima (14/09/22(Mon) 11:17) #44513
  └Nomal バッチファイルの利用について追記 / kojima (14/09/23(Tue) 16:20) #44518

All 上記ツリーを一括表示
 
上記の記事へ返信