C# と VB.NET の質問掲示板

>Honglianさん
\bですと、分割はできますが、後半の文字列の１文字目が消えます。

取得文字列の部分は触れないので、ブラックボックスです。


>shuさん
確認方法ですが、ページのソースを観ています。
<script type="text/javascript">
var str = "aaaaa\bbbbb";
.....
</script>

この"aaaaa\bbbbb"はページが生成されるときに代入されています。
IDEの上では、以下のようになっています。
<script type="text/javascript">
var str = L_USER_LOGINNAME;
.....
</script>

一例ですが、L_USER_LOGINNAMEが"pqrs\tuvwx"となる場合、
alert(str)をすると、"pqrs  uvwx"と表示されます。空白はタブです。

処理としては、取得した文字列を\の前の文字列と後半の文字列に分割し、
別々の変数に格納したいと考えています。


■No62126 (shu さん) に返信
> ■No62124 (こう さん) に返信
>>はじめまして。
>>バックスラッシュの処理で困っており、よろしければ力をお貸しください。
>>
>>現在、以下の処理をJavascriptで行っております。
>>1. 文字列を取得。
>>2. バックスラッシュ(円マーク)で区切る。
>>
>>この1.で取得される文字列が"aaaaa\bbbbb"のようになっており、"\b"がエスケープシーケンスとなり、
> aaaaa\bbbbbの確認をどのようにされたか分かりませんが、このように表示されたからといって\bの部分が
> エスケープシーケンスとは言えません。
> 
> 
>>"\\"を使いsplitやindexOfをしても出てきません。
>>そのため、2.の処理が実行できないでいます。
> どのような値が返ってきたのでしょう？
> 
> 1,2はそれぞれどんな処理をしているのでしょう？

Compact Framework 3.5環境化で、2重起動防止と、起動中フォームの最前面表示を行いたいと考えています。
2重起動防止については、Mutexを用いて実装できましたが、最前面表示については、ProcessクラスのGetProcessesByNameが使えないため行き詰まっています。

何か良い方法はないでしょうか。
よろしくお願いします。

■No66125 ( ku-tuka さん) に返信

handle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
　　↓
Process32First(handle, peBytes() as Byte)
(２順目以降は Process32Next(handle, peBytes() as Byte))
　　↓
peBytes => PROCESSENTRY32
変換ロジック例
            Dim mem As New MemoryStream(peBytes)
            Dim rd As New BinaryReader(mem)

            dwSize = rd.ReadUInt32()
            cntUsage = rd.ReadUInt32()
            th32ProcessID = rd.ReadInt32()
            th32DefaultHeapID = rd.ReadUInt32()
            th32ModuleID = rd.ReadUInt32()
            cntThreads = rd.ReadUInt32()
            th32ParentProcessID = rd.ReadInt32()
            pcPriClassBase = rd.ReadInt32()
            dwFlags = rd.ReadUInt32()
            Dim bytExeFiles = New Byte(MAX_PATH) {}
            rd.Read(bytExeFiles, 0, MAX_PATH)
            szExeFile = Encoding.Unicode.GetString(bytExeFiles, 0, MAX_PATH)
            szExeFile = szExeFile.TrimEnd(CChar(vbNullChar))
            th32MemoryBase = rd.ReadUInt32()
            th32AccessKey = rd.ReadUInt32()
            rd.Close()
　　↓
PROCESSENTRY32.szExeFileにてExeを判断

という手順でプロセスを列挙してExeを判断するとよいです。

http://bbs.wankuma.com/index.cgi?mode=al2&namber=90669&KLOG=156

4ヶ月前にここで質問させていただいたのですが、
仕事が忙しくすぐに試すことができませんでした。
先ほど試してみたのですが、
ラインを描画することには成功したものの、
補間されたデータを取得しても、
カクカクしたおかしなデータしか取得できません。

コードは以下の通りです。


    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint




                Dim g = e.Graphics

                Dim point1 As New Point(30, 20)
                Dim point2 As New Point(60, 150)
                Dim point3 As New Point(120, 30)
                Dim point4 As New Point(200, 140)
                Dim point5 As New Point(220, 100)
                Dim point6 As New Point(190, 60)
                Dim curvePoints As Point() = {point1, point2, point3, point4, point5, point6}

                '幅3の赤色のPenオブジェクトを作成
                Dim redPen As New Pen(Color.Red, 3)




                    'GraphicsPathオブジェクトの作成
                    Dim myPath As New GraphicsPath

                    '新しい図形を開始する
                    myPath.StartFigure()




                    '直線を2本追加する
                    myPath.AddCurve(curvePoints, 1)




                    'パス図形を描画する
                    g.DrawPath(redPen, myPath)


                    Using writer As New IO.StreamWriter("D:\test.csv", False, System.Text.Encoding.Default)

                        For i As Integer = 0 To myPath.PathPoints.Length - 1

                            writer.WriteLine(myPath.PathPoints(i).X & "," & myPath.PathPoints(i).Y)

                        Next i

                    End Using



    End Sub




出力されたCSVファイルは以下のようになっています。

30,20
40,63.33333
30,146.6667
60,150
89.99999,153.3333
73.33333,33.33333
120,30
166.6667,26.66666
166.6667,116.6667
200,140
233.3333,163.3333
223.3333,126.6667
220,100
216.6667,73.33334
200,73.33333
190,60

Excelでグラフ化してもらうと分かりますが、
全く補間されていないどころか、
PictureBoxに描画されたラインとは全く異なる位置にポイントが追加されています。

これは一体どういうことなのでしょうか？