queuerev2 の回答履歴

powershellでコンソールに表示された結果を 保存するにはどうしたらよいでしょうか？ 保存してもコンソール表示はしたいので、 リダイレクトは無しでお願いしたいと思います。

コマンドの実行結果の標準出力をリダイレクトしてテキストファイルに書き出しました。 このファイルを検索し、マッチした文字列の次の単語を出力したいのですが、 標準のDOSコマンド（あるいはコマンドラインで動作するフリーソフトを使用するのでも構いません）で実現するにはどうすれば良いでしょうか？ テキストファイルの内容例 hogehoge: abcdefg この場合、abcdefgを出力したいです。 hogehogeは大文字小文字入り交じっています。

ISEでスクリプト作成しています。 ISEは正常に動作していて正しい結果が得られるのですが、 同じスクリプトを実際にコンソールの方で実行すると違う結果になります。 例えば以下の様な簡単なスクリプトだと、 ISEでは100、コンソールでは1が表示されます。 ------------------------------------- $a = 1 function test{ 　　$global:a = 100 } test Write-Host $a Start-Sleep -s 10 ------------------------------------- 原因と解決策はありますでしょうか？ $PSVersionTableで調べたところバージョンは4.0です。

ISEでスクリプト作成しています。 ISEは正常に動作していて正しい結果が得られるのですが、 同じスクリプトを実際にコンソールの方で実行すると違う結果になります。 例えば以下の様な簡単なスクリプトだと、 ISEでは100、コンソールでは1が表示されます。 ------------------------------------- $a = 1 function test{ 　　$global:a = 100 } test Write-Host $a Start-Sleep -s 10 ------------------------------------- 原因と解決策はありますでしょうか？ $PSVersionTableで調べたところバージョンは4.0です。

お世話になります。 Shift_JISの0x5Cは、フォントによって半角の￥（円記号）になったり＼（バックスラッシュ）になったりします。 同様に、0x7Eは、フォントによって半角の～（チルダ。天地中央取り、または上付き）になったり、半角の￣（オーバーライン）になったりすると記憶していました。 しかし、0x5Cは相変わらず、MS ゴシックだと半角の￥に、Courierだと半角の＼に見えるのですが、0x7Eはどちらのフォントでも、～になります。（上下位置は天地中央取りになったり上付きになったりまちまち） これ、0x7Eが￣に見えるようなフォントを、どなたかご存じないでしょうか。 Windowsでも、Macでもかまいません。 （昔は見えていた、というのがそもそもまぼろし？？？？） よろしくお願い致します。

powershellのパイプはオブジェクトを渡しますが、 従来シェルと同様にテキストデータを渡すことはできるのでしょうか？

powershellのパイプはオブジェクトを渡しますが、 従来シェルと同様にテキストデータを渡すことはできるのでしょうか？

powershellのパイプはオブジェクトを渡しますが、 従来シェルと同様にテキストデータを渡すことはできるのでしょうか？

powershellでのソート処理に関して教えてください。 list.csv F１,F2,F3 file01.txt,c:\dirA,100kb file20.txt,c:\dirC,100kb file100.txt,c:\dirG,100kb file200.txt,c:\dirG,100kb CSVで上記の様なデータがあり、F１のデータにおいて、 ファイル名の数字部分でソートしたいのですが、 意図したソートができません。 数字を考慮してのソートってどうやればよいでしょうか。 PS c:\>Get-Content .\list.csv|ConvertFrom-CSV |Sort-Object f1 F1 F2 F3 -- -- -- file01.txt c:\dirA 100kb file100.txt c:\dirG 100kb file20.txt c:\dirC 100kb file200.txt c:\dirG 100kb file01.txt→file02.txt→file100.txt→file200.txtの並びでソートさせたいです。 よろしくお願いします。

C言語みたいに、必要なライブラリをリンクしてしまえばどこでも動き便利ですが、ほかにも候補がないかと苦心しています。 C言語は学習コストが高く、VBSはフォームすらありません。ラジオボタンを選択できる程度の機能があれば十分です。 Windowsならどこでも動くプログラムを作成できる言語をさがしています。お願いします。

いつもすいません。本日はExcelVBAでOutLookを操作する件です。 Excelのあるセルの内容を、書体やフォントの大きさ、色などをそのままにして OutLookのメール本文に設定できないでしょうか？　要は、「セルを選択～コピー」 「Outlookのメール本文で貼り付け」という作業をしたいんです。 現状のExcel-VBAのコードは Set M = AP.createitem(0) 'OutLookの起動 M.bodyformat = 3 'テキストメールを指示 M.To = Work_A '宛先 M.Subject = Work_T '件名 M.body = Work_C '本文 M.display 'メールを表示 こんな感じで、「Work_C」には「Range("A1").Value」でデータを与えているために、 現状テキストデータしか送られてないんです。 どうすれば「M.body」に「Range("A1") 」の書式を含めたデータを与えられますか？ 出来れば、HTMLのコードを書かずに何とかしたいんですけど・・・。

以下の2つのサイトを参考にIEの自動処理を作っています。 「IE 画面を、スクリプトで操作する (パソコン便利ツール集)」 http://makoto-watanabe.main.jp/htmlDOM.html 「WSH JScriptを使いこなそう ～キーボード操作～」 http://3rd.geocities.jp/kaito_extra/Source/KeybordCtrl.html そこで簡単なhtmlページを作り、javascriptの「confirm」を使って確認メッセージを表示しました。 この確認メッセージの「OK」か「キャンセル」をVbscriptの「SendKeys」を使ってコントロールしようとしてるのですが全く反応しません。 何がいけないのでしょうか？ もちろん確認メッセージはアクティブの状態です。 開いたIEのオブジェクトなどでコントロールしないといけないのでしょうか？ ちなみに、html内のjavascriptは次のようにしています。 <script Language="JavaScript"> <!-- confirm("よろしいですか？") //--> </script> Vbscriptは次の通りです。 Set objWshShell = Wscript.CreateObject("Wscript.Shell") Set objIE = CreateObject("InternetExplorer.Application")'IEの起動 objIE.Visible = True 'IEウィンドウを表示 siteurl = "http://テスト用のサイト/test.html" objIE.Navigate2 siteurl'指定ページを開く While objIE.ReadyState <> 4 Or objIE.Busy = True WScript.Sleep 1000 Wend objWshShell.SendKeys("{enter}") objIE.Quit Set objIE = Nothing WScript.quit

Excel vbaの初心者ですが、他のサイトを参考にして 以下のプログラムを作成しました。 指定された文字をシートから削除する物です。 「FindDelete」の中で、一度で全角・半角の文字を検索する方法があれば 教えてください。よろしくお願いします。 Sub FindDelete(ss As String) Dim FoundCell As Range Dim FirstCell As Range Dim Target As Range Dim c As Range Dim findArea As Range Set findArea = Intersect(Columns("E:F"), ActiveSheet.UsedRange) Set FoundCell = findArea.Find(What:=ss, LookAt:=xlPart) If FoundCell Is Nothing Then MsgBox ss & "は見つかりません" Exit Sub Else Set FirstCell = FoundCell Set Target = FoundCell End If Do Set FoundCell = findArea.FindNext(FoundCell) If FoundCell.Address = FirstCell.Address Then Exit Do Else Set Target = Union(Target, FoundCell) End If Loop Target.Select If MsgBox(ss & "：" & vbCrLf & Target.Count & "件見つかりました", vbYesNo, "削除しますか？") = vbYes Then For Each c In Target c = Replace(c, ss, "") Next c End If End Sub Sub tFindDelete() Dim ss As String ss = "カブシキガイシャ" ss = StrConv(ss, vbNarrow) FindDelete (ss) ss = StrConv(ss, vbWide) FindDelete (ss) ss = "ユウゲンガイシャ" ss = StrConv(ss, vbNarrow) FindDelete (ss) ss = StrConv(ss, vbWide) FindDelete (ss) End Sub

Excel vbaの初心者ですが、他のサイトを参考にして 以下のプログラムを作成しました。 指定された文字をシートから削除する物です。 「FindDelete」の中で、一度で全角・半角の文字を検索する方法があれば 教えてください。よろしくお願いします。 Sub FindDelete(ss As String) Dim FoundCell As Range Dim FirstCell As Range Dim Target As Range Dim c As Range Dim findArea As Range Set findArea = Intersect(Columns("E:F"), ActiveSheet.UsedRange) Set FoundCell = findArea.Find(What:=ss, LookAt:=xlPart) If FoundCell Is Nothing Then MsgBox ss & "は見つかりません" Exit Sub Else Set FirstCell = FoundCell Set Target = FoundCell End If Do Set FoundCell = findArea.FindNext(FoundCell) If FoundCell.Address = FirstCell.Address Then Exit Do Else Set Target = Union(Target, FoundCell) End If Loop Target.Select If MsgBox(ss & "：" & vbCrLf & Target.Count & "件見つかりました", vbYesNo, "削除しますか？") = vbYes Then For Each c In Target c = Replace(c, ss, "") Next c End If End Sub Sub tFindDelete() Dim ss As String ss = "カブシキガイシャ" ss = StrConv(ss, vbNarrow) FindDelete (ss) ss = StrConv(ss, vbWide) FindDelete (ss) ss = "ユウゲンガイシャ" ss = StrConv(ss, vbNarrow) FindDelete (ss) ss = StrConv(ss, vbWide) FindDelete (ss) End Sub

VBAで複数のブックから指定のデータを抽出してリストを作りたいです。 ・地域ごとに分かれたブックが複数あります。（全て同一フォルダ内、リストも同フォルダに作ります） ・シートの構成は「原本」「一覧」「商品名A」「商品名B」（※5～20シート位） ・商品は月替わりで増減がある。 「一覧」…商品名のシートから月の販売個数を集計した物を一覧表にしてあります。 　　　　　必ず各ブックの2枚目のシートになります。 ・各地域のブックから「一覧」のシートを参照して「商品名」「メーカー」「合計」を抽出する。 ・リストには地域別でメーカー毎に一覧を表示したい。 別ブックの特定のセルを参照して一覧にするのは簡単なのですが、商品が毎月増減します。 なので各地域別のブックを更新したら、リストの方も自動的に反映されるようにしたいのです。 色々検索してみて各ブックの指定のシート、指定のセルからマクロで自動的に読み込むというのは見つかりましたが、セルの範囲が一定ではない場合はどうすれば良いのか解りません。 出来ればリスト以外のブックは開かずにデータを抽出したいです。 （※実際に入力作業を行うスタッフは本当に入力しか出来ないので、このブックを先に開いて～とかは混乱して出来ないようです。マクロで全てのファイルを開く等も勝手に閉じてしまったりするので避けたいです。）

VBAで複数のブックから指定のデータを抽出してリストを作りたいです。 ・地域ごとに分かれたブックが複数あります。（全て同一フォルダ内、リストも同フォルダに作ります） ・シートの構成は「原本」「一覧」「商品名A」「商品名B」（※5～20シート位） ・商品は月替わりで増減がある。 「一覧」…商品名のシートから月の販売個数を集計した物を一覧表にしてあります。 　　　　　必ず各ブックの2枚目のシートになります。 ・各地域のブックから「一覧」のシートを参照して「商品名」「メーカー」「合計」を抽出する。 ・リストには地域別でメーカー毎に一覧を表示したい。 別ブックの特定のセルを参照して一覧にするのは簡単なのですが、商品が毎月増減します。 なので各地域別のブックを更新したら、リストの方も自動的に反映されるようにしたいのです。 色々検索してみて各ブックの指定のシート、指定のセルからマクロで自動的に読み込むというのは見つかりましたが、セルの範囲が一定ではない場合はどうすれば良いのか解りません。 出来ればリスト以外のブックは開かずにデータを抽出したいです。 （※実際に入力作業を行うスタッフは本当に入力しか出来ないので、このブックを先に開いて～とかは混乱して出来ないようです。マクロで全てのファイルを開く等も勝手に閉じてしまったりするので避けたいです。）

VBAについて質問です。 画像を何枚かを重ねて、シート上に置いてあります。 VLOOKUPにて、画像番号を獲得して、その番号の画像を最上面へ移動させたいのですが ActiveSheet.Shapes.Range(Array("Picture 201")).Select ActiveWindow.SmallScroll ToRight:=-342 Selection.ShapeRange.ZOrder msoBringToFront ActiveSheet.Shapes.Range(Array("Picture 221")).Select ActiveWindow.SmallScroll ToRight:=-342 Selection.ShapeRange.ZOrder msoBringToFront ActiveSheet.Shapes.Range(Array("Picture 215")).Select ActiveWindow.SmallScroll ToRight:=-342 Selection.ShapeRange.ZOrder msoBringToFront ("Picture 215")の部分を、セルの値で変更したいのですが どうか、お力お貸しください。 よろしくお願いします。

マイクロソフト Outlook2010のostファイルがあります。このファイルを復元したいのです。 エクスチェンジサーバー使用でしたのでpstファイルではありません。 受信トレイ修復ツール (scanpst.exe)というものを使用して.bakファイルも作成したのですが どちらもインポート出来ません。 復元方法はありますでしょうか？

エクセル2010です。 エクセルからVBAでアウトルックメールを作成するのですが、差出人を自分ではなく部門名のアドレスにしたいのです。 手動ではなんなく差出人を変更できるのですが、VBAでの方法がわかりません。 ネット検索してみると、 SendUsingAccount = Session.Accounts("アカウント名") でできるようなのですが、アカウント名がよくわかりません。 アカウント名に、手動で差出人を変更する際に「名前の選択」で指定する部門の名前や部門のアドレスなどを入れてみましたがオブジェクトが必要とのエラーになってしまいます。 どうすればよいのでしょうか？ Sub TEST001() Dim oApp As Object Dim objMAIL As Object Dim strMOJI(1) As String On Error Resume Next Set oApp = GetObject(, "Outlook.Application") On Error GoTo 0 If oApp Is Nothing Then Set oApp = CreateObject("Outlook.Application") End If Set objMAIL = oApp.CreateItem(0) strMOJI(0) = "こんにちは！" & vbCrLf & _ "差出人変更のテストです。。" & vbCrLf & _ "よろしくおねがいします。" & vbCrLf strMOJI(1) = vbCrLf & _ "以上です。" & vbCrLf & _ "ABC株式会社" & vbCrLf & _ "emaxemax" objMAIL.To = "" objMAIL.CC = "xxxx@xxx.co.jp" objMAIL.Subject = "テスト" objMAIL.Body = strMOJI(0) & strMOJI(1) ' objMAIL.SendUsingAccount = Session.Accounts("ABC Gyomubu")'ここでエラー objMAIL.Display End Sub

お世話になります。 エクセルAのVBAで、配列Aを生成・使用しています。 アクセスBのVBAで、その配列Aの中身を使用したいのですが、 現在は、 　エクセルA:配列Aの中身をテキストに書き出す。 　アクセスB:テキストを取り込む という形で、受渡をしています。 このようなテキストを介さずに、 直接、配列のコピー(もしくは、エクセルの配列Aをアクセスで直接しよう) する方法はあるのでしょうか？ 何卒宜しくお願いします。