Ajouter une variable à une autre

**guiguir68** · 08/07/2014, 03h39

Bonsoir,

Je souhaiterai ajouter le contenu de var1 et var2 dans la variable lien.
Voici mon fichier bat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
@echo Mot 1 :
@set /p var1=
@echo Mot 2 :
@set /p var2=
@set lien="https://www.google.fr/#q=" "%var1%" + "%var2%"
@echo %lien%
@pause

Par exemple :

var1 = maison
var2 = porte

La variable lien sera donc lien=https://www.google.fr/#q=maison+porte

Malheureusement, ce n'est pas la bonne syntaxe. Avez vous une idée ? Merci !

**hackoofr** · 08/07/2014, 05h23

Testez ce batch

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
@echo off
Title Recherche sur Google
mode con cols=60 lines=8 & Color A
@echo Mot 1 :
@set /p var1=
@echo Mot 2 :
@set /p var2=
@set lien=https://www.google.fr/#q=%var1%+%var2%
@echo %lien%
Start %lien%
@pause

**hackoofr** · 08/07/2014, 09h59

Voici un autre programme écrit en Vbscript et interfacé par un HTA

Il faut juste copier et coller ce code dans votre notepad et enregistrez le sous le nom par exemple GoogleSearch.hta

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
<html>
<head>
<HTA:APPLICATION
APPLICATIONNAME="Recherche avec Google © Hackoo"
BORDER="THIN"
BORDERSTYLE="NORMAL"
ICON="magnify.exe"
INNERBORDER="NO"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="NO"
SCROLL="NO"
SELECTION="NO"
SYSMENU="YES"
SINGLEINSTANCE="YES"/>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<script language="VBScript">
Option Explicit
Dim Titre
Titre = "Recherche avec Google © Hackoo"
Self.document.title = Titre
Sub window_onload()
    CALL CenterWindow(300,160)
    Self.document.bgColor = "Orange"
End Sub
Sub RunProgram()
    Dim X,Y,URL,objShell,Param,MaCmd
    X = text1.value
    Y = text2.value
    Param = "#q="& X & "+" & Y &""
    URL = "www.google.com"& Param
    Set objShell = CreateObject("Wscript.Shell")
    MaCmd =  DblQuote(URL)
    objShell.Run(MaCmd)
End Sub
'***************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************************
'Position Windows
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft, itop
End Sub
</script>
</head>
<body><center>
Text1 : <input type="text" id="text1" Name="text1" value="Vbscript"><br>
Text2 : <input type="text" id="text2" Name="text2" value="Hackoo"><br><br>
<input type="submit" Value="Recherche avec Google" onclick="RunProgram()"></center>
</body>
</html>

**guiguir68** · 08/07/2014, 11h33

Par hasard, est ce que qu'il serait possible de mettre plusieurs mots dans var1 mais en remplaçant les espaces par des + ?

Exemple :

var1=trop génial

lien=https://www.google.fr/#q=trop+génial

**sachadee** · 08/07/2014, 12h04

Comme ceçi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
@echo off 
Title Recherche sur Google
mode con cols=60 lines=8 & Color A

set "lien=https://www.google.fr/#q="

setlocal enabledelayedexpansion
echo Mot 1 :
set /p var1=
for %%a in (%var1%) do  set "lien=!lien!%%a+"
set lien=!lien:~0,-1!
echo !lien!
pause

**guiguir68** · 08/07/2014, 12h07

Merci !

**hackoofr** · 08/07/2014, 12h12

Envoyé par guiguir68

Merci !

Et moi pas de

ni +1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<html>
<head>
<HTA:APPLICATION
APPLICATIONNAME="Recherche avec Google © Hackoo"
BORDER="THIN"
BORDERSTYLE="NORMAL"
ICON="magnify.exe"
INNERBORDER="NO"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="NO"
SCROLL="NO"
SELECTION="NO"
SYSMENU="YES"
SINGLEINSTANCE="YES"/>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<script language="VBScript">
Option Explicit
Dim Titre
Titre = "Recherche avec Google © Hackoo"
Self.document.title = Titre
Sub window_onload()
    CALL CenterWindow(300,160)
    Self.document.bgColor = "Orange"
End Sub
Sub RunProgram()
    Dim X,Y,URL,objShell,Param,MaCmd
    X = text1.value
    X = Replace(X," ","+")
    Param = "#q="& X & ""
    URL = "www.google.com"& Param
    Set objShell = CreateObject("Wscript.Shell")
    MaCmd =  DblQuote(URL)
    objShell.Run(MaCmd)
End Sub
'***************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************************
'Position Windows
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft, itop
End Sub
</script>
</head>
<body><center>
Text : <input type="text" id="text1" Name="text1" value="Vbscript Hackoo HTA"><br><br>
<input type="submit" Value="Recherche avec Google" onclick="RunProgram()"></center>
</body>
</html>

**guiguir68** · 08/07/2014, 12h35

Je te mets +1 si tu arrives à répondre à une autre question ...

En lançant le navigateur internet via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

start "" "http://....."

le navigateur apparait au premier plan, cachant la fenêtre bat.

Comment faire en sorte pour que la fenêtre bat revienne au premier plan ? (devant le navigateur internet)

**hackoofr** · 08/07/2014, 12h50

Envoyé par guiguir68

Comment faire en sorte pour que la fenêtre bat revienne au premier plan ? (devant le navigateur internet)

Il faut juste utiliser votre clavier en cliquant simultanément sur les touches [ALT]+[TAB]

Je réclame mon +1

**guiguir68** · 08/07/2014, 12h57

Merci je connais quand même ce raccourcis xD

Mais on peut pas forcer la fenêtre à rester devant ?

**sachadee** · 08/07/2014, 13h15

Cette discussion étant résolue. Ouvre un autre sujet.

A+

**hackoofr** · 08/07/2014, 14h58

Envoyé par guiguir68

Mais on peut pas forcer la fenêtre à rester devant ?

avec un petit bricolage en Vbscript à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@echo off 
setlocal enabledelayedexpansion
Title Recherche sur Google
mode con cols=60 lines=8 & Color A
echo Set ws = CreateObject(^"wscript.Shell^") > AltTab.vbs
echo ws.Sendkeys(^"%%{TAB}^") >> AltTab.vbs
:Boucle
cls
set "lien=https://www.google.fr/#q="
echo off
echo Saisisez les Mots cles pour la recherche sur google  :
set /p var1=
for %%a in (%var1%) do  set "lien=!lien!%%a+"
set lien=!lien:~0,-1!
echo !lien!
Start !lien!
Timeout /T 1
Start wscript.exe AltTab.vbs
Goto Boucle

Ajouter une variable à une autre [Batch]

Scripts/Batch

Discussions similaires

Partager

Partager